open my $OUT, '>:utf8', $filename or die $!; #### open my $OUT, '>', $filename or die $!; binmode $OUT, ':utf8'; #### use open OUT => ':utf8';