Select Code to Download

...
mysql_enable_utf8;
....

my $dbh = DBD->connect('DBD<stuff here>:ODBC:japmysql','','')

my $dbh = DBI->connect('DBI:ODBC:japmysql','','')

#!C:/Perl/bin/perl
use DBI;
...
print "</body></html>\n";

$dbh->disconnect;

$dbh->{mysql_enable_utf8} or die "couldn't init mysql_enable_utf8";