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";

非常感谢任何投入！

非常感谢。