perl+mysql CGI Can't create TCP/IP socket (10091)

描述:

我的Perl VERSION :5.8.7.815
我的Mysql VERSION :5.0
我的DBI VERSION :1.602
我的DBD-Mysql VERSION :3.0002
Tomact 5.5 Version:5.5

代码:
#!c:\perl\bin\perl.exe -w
use strict;

use DBI;

# Connect to target DB
my $dbh = DBI->connect("DBI:mysql:database=mytest;host=192.168.1.6","root","123456", {'RaiseError' => 1});
# query
my $sqr = $dbh->prepare("SELECT * FROM employee";
$sqr->execute();

while(@row_ary = $sqr->fetchrow_array){
   print @row_ary;
}
$sqr->finish;

print "@row_ary\n";

$dbh->disconnect();

在命令执行是可以的, 部署到tomact上去执行出现

Oct 9, 2008 2:59:34 PM org.apache.catalina.core.ApplicationContext log
INFO: cgi: runCGI (stderr)BI connect('database=mytest;host=192.168.1.6;port=3306','',...) failed: Can't create TCP/IP socket (10091) at C:\Tomcat 5.5\webapps\project\WEB-INF\cgi\conn.cgi line 10

那位帮我看看,谢谢啦.