my $DSN = 'driver={SQL Server};Server=212.233.1.70; database=db;uid=usr;pwd=pwusr;'; 
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";