use Lingua::JA::Moji qw/kana2romaji romaji2kana/;
#use utf8;
#use Encode;

if( $#ARGV < 1 ){
  die("Not enough arguments\n");
}
open(INP, "<$ARGV[0]") or die("Cannot open file '$ARGV[0]' for reading\n");
open(OUTP, ">$ARGV[1]") or die("Cannot open file '$ARGV[1]' for writing\n");
my @hira = <INP>;
print OUTP kana2romaji (@hira);
close INP;
close OUTP;