use open OUT => ':encoding(euc-jp)';
use IO::File;

となっているプログラムで、

my $fh = new IO::File('test.txt', 'w');
$fh->print(...);

という感じで utf8 フラグの立った文字列を書こうとすると
Wide character を書いたという警告が出て、結果として
utf8 が書かれるのですが、IO::File に対しては use open
は効かないということでしょうか? (しょうがないから
binmode $fh, ':encoding(euc-jp)'; でやることにしま
したが)。