Select Code to Download

use DBI;

...

my $DSN = "driver={SQL Server};server=$server;database=$database_name;
+uid=$user;pwd=$pass"; 
my $DBH = DBI->connect("DBI:ODBC:$DSN") or die "Couldn't open database
+: $DBI::errstr\n";

DBI connect('driver={SQL Server};server=localhost\WHATSUP:3477;databas
+e=equip;uid=rodrigo;pwd=123456','',...) failed: [Microsoft][ODBC SQL 
+Server Driver][DBNETLIB]Invalid connection. (SQL-08001) [st
ate was 08001 now 01000]
...
Couldn't open database: [Microsoft][ODBC SQL Server Driver][DBNETLIB]I
+nvalid connection. (SQL-08001)
 [state was 08001 now 01000]
[Microsoft][ODBC SQL Server Driver][DBNETLIB]ConnectionOpen (ParseConn
+ectParams()). (SQL-01000)