perl,dbi连接postgre和mysql

#!/usr/bin/perl
use DBI;
#my $dbh = DBI->connect("DBI:PgPP:vl60_cmn:localhost", "a" , "a");
my $dbh = DBI->connect("dbi:mysql:c50_3:192.168.1.1", "a" , "a");
#$dbh->do("SET client_encoding = utf8");
$dbh->do("set names ujis");
$query = $dbh->prepare("select * from table limit 10");
$query->execute();

while (@row = $query->fetchrow_array()){
foreach(@row){
print "$_ ";
}
print "\n";
}
#$name=$query->{TABLE};
#print "table name:$name!\n";
undef($query);
$dbh->disconnect();
$dbh = undef;