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