mysql - MySQL 服务器连接从命令行工作，但不能从使用 DBI 的 perl 脚本工作

Question

我可以使用命令行连接到远程 MySQL 服务器

mysql -h "mysqlhost" -u user -ppasswd

但是当我尝试通过 perl 脚本连接到同一台服务器时，出现以下错误：

DBI connect(.....)failed: Can't connect to MySQL server on 'mysqlhost' (111)

我的代码如下所示：

use DBI;
use DBD:mysql;
my $DBH = DBI->connect("DBI:mysql:database=DB1;host=mhsqlhost", "user", "passwd") ||   die "Connection Failed: $DBI::errstr";

任何输入将不胜感激！

非常感谢。