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;

##</code><code>##

use Encode;
@hira = Encode::decode( 'utf8', @hira );#if
encode('utf8', decode('utf8', @hira), @hira));
@hira = decode("utf-8", @hira );
binmode @hira, ':encoding(utf8)';


##</code><code>##

use utf8;
_utf8_on(@hira);