use DBI;

my $user = "rodrigo";
my $pass = "123456";
my $server = "localhost\\WHATSUP:3477";
my $database_name = "equip";

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

##</code><code>##

DBI connect('driver={SQL Server};server=localhost\WHATSUP:3477;database=equip;uid=rodrigo;pwd=123456','',...) failed: [Microsoft][ODBC SQL Server Driver][DBNETLIB]Invalid connection. (SQL-08001) [st
ate was 08001 now 01000]
[Microsoft][ODBC SQL Server Driver][DBNETLIB]ConnectionOpen (ParseConnectParams()). (SQL-01000) at C
:\fsecali\connectDB.pl line 9
Couldn't open database: [Microsoft][ODBC SQL Server Driver][DBNETLIB]Invalid connection. (SQL-08001)
 [state was 08001 now 01000]
[Microsoft][ODBC SQL Server Driver][DBNETLIB]ConnectionOpen (ParseConnectParams()). (SQL-01000)