use DBI;
use CGI qw/:standard :html3/;
use CGI::Carp qw(fatalsToBrowser);

my $query = CGI -> new;

print header(-charset=>'utf-8');

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

my $sth = $dbh->prepare('Select English, Kana, Kanji from Vocab')
	or die("Couldn't prepare");

$sth->execute or die ("Could not execute SQL statement.");

if($sth->rows == 0)
{
        print "No information.";
}
else
{
        
        print "<table border=1>\n";
        while( $resptr =  $sth->fetchrow_hashref() )
        {
                print "<tr>";
                print "<td>" . $resptr->{"English"};
                print "<td>" . $resptr->{"Kana"};
                print "<td>" . $resptr->{"Kanji"};                
                print "\n";
        }
        print "</table>\n";
}
print "</body></html>\n";

$dbh->disconnect;