use DBI;
use Encode;

binmode STDOUT, ":utf8";  # this will avoid warnings on output

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 $rownum = 1;

while( my ($eng,$kana,$kanji) = $sth->fetchrow_array() ) {

# $eng is presumably ASCII already -- no conversion needed

    $_ = decode( 'cp932', $_ ) for ( $kana, $kanji );

    printf( "%d:\t%s\t%s\t%s\n", $rownum++, $eng, $kana, $kanji );
}

$dbh->disconnect;