perl连接查询mysql

#!C:/perl/bin/perl
use CGI qw(:standard);
use Mysql;
print header();
#Import the CGI parameters into the $Q structure
import_names();
#Connect to Andrew's MySQL server at Napier University
my $dbh = DBI->connect("dbi:mysql:database=gisq;host=pc236nt.napier.ac.uk;port=3306",
"scott", "tiger");
my $sth = $dbh->prepare("SELECT DISTINCT region FROM cia");
$sth->execute;
print "<h1>Here are some regions</h1>/n";
while (my ($region) = $sth->fetchrow_array()){
print "<a href="?region=$region" mce_href="?region=$region">$region<a><br/>/n";
}
if ($Q::region) {
print "<h1>Here are the countries of $Q::region</h1>";
my $sth = $dbh->prepare("SELECT name, population FROM cia where region=?");
$sth->execute($Q::region);
while (my ($name,$pop) = $sth->fetchrow_array()){
print "$name $pop<br/>/n";
}
}
$dbh->disconnect;