open(INPUT, "<input");
open my($in), "<&:encoding(japhy)", "INPUT" or die $!;
open my($out), ">&:encoding(japhy)", "STDOUT" or die $!;
print $out $_ while <$in>;
close(INPUT);