与Perl和DBI建立无效连接

Question

我正在尝试使用Perl使用以下代码连接到MS SQL Server：

my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server}; 
                         Server=$host_name; 
                         UID=$user_name;
                         PWD=$password") || 
die "Cannot connect to $host_name $user_name: $DBI::errstr";

15秒后，它回来了：

  

DBI connect（＆＃39; Driver = {SQL Server}; Server = myserver.mydomain.org; UID = username; PWD = passwd＆＃39;，＆＃39;＆＃39;，...）失败：[Microsoft] [ODBC SQL Server驱动程序] [DBNETLIB]无效的连接。 （SQL-08001）[州是08001现在01000]   [Microsoft] [ODBC SQL Server驱动程序] [DBNETLIB] ConnectionOpen（无效实例（））。 （SQL-01000）at ./copy_hp_data.pl第81行。

我可以通过SSMS连接到此服务器，并且我将主机名添加到ODBC数据源（用于SQL Server的32/64位ODBC驱动器11）。

我搜索了档案并尝试了许多解决方案，但我不知所措。任何建议都将不胜感激。