open my($in), "<&:encoding(japhy)", "STDIN" or die $!;
open my($out), ">&:encoding(japhy)", "STDOUT" or die $!;