binmode STDOUT, ":utf8";

use DBI;
use Encode;
use Jcode;

my $dbh = DBI->connect('DBI:ODBC:japan','','') or die "Cannot connect: $DBI::errstr\n";

my $sth = $dbh->prepare('Select English, Kana, Kanji from Vocab')
    or die "Cannot prepare: $DBI::errstr\n";
	
$sth->execute or die "Cannot execute: $DBI::errstr\n";

my %code_map = ( euc => 'euc-jp',
                 sjis => 'shiftjis',
                 jis => 'iso-2022-jp',
                 ucs2 => 'UCS-2LE',  utf8 => 'utf8' );

my @row = $sth->fetchrow_array;
my $eng = shift @row;   # first field is English
my $kana = shift @row;  # second field is Kana
my $kanji = shift @row; # third field is Kanji

my $kana_enc = getcode( $kana );
my $kanji_enc = getcode( $kanji );
if ( $kana_enc ne $kanji_enc ) {
    warn "Very strange: kana is in $kana_enc, but kanji is in $kanji_enc\n";
}
my $kana_utf8 = decode( $kana_enc, $kana );
my $kanji_utf8 = decode( $kanji_enc, $kanji );

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

##</code><code>##

English: Ah!  Kana: ?  Kanji: NA