my @encoded_hira = <INP>;
my @decoded_hira = map { decode('UTF-8', $_) } @encoded_hira;
my @decoded_romaji = kana2romaji(@decoded_hira);
my @encoded_romaji = map { encode('UTF-8', $_) } @decoded_romaji;
print OUTP @encoded_romaji;

##</code><code>##

binmode INP, ':encoding(UTF-8)';
binmode OUTP, ':encoding(UTF-8)';

##</code><code>##

open(INP,  '<:encoding(UTF-8)', $ARGV[0])
open(OUTP, '>:encoding(UTF-8)', $ARGV[1])