use I18N::Japanese;

open F, ">", "myfile"  and print F "foo\n";
open my $f, ">", "myfile" or die $!;
print $f "foo\n";
# ...