Select Code to Download

foreach $i (@row) {
    print(getcode($i), "\n");
    $i++;
}

binmode STDOUT, ":utf8";

...
my $kanju_utf8 = decode( $kanji_enc, $kanji );

printf( "English: %s  Kana: %s  Kanji: %s\n", $eng, $kana_utf8, $kanji
+_utf8 );

my %code_map = ( euc => 'euc-jp',
                 sjis => 'shiftjis',
...
$kana_utf8 = decode( $code_map{$kana_enc}, $kana );

# ...