my $DSN = 'driver={SQL Server};Server=IP;Database=DB;UID=user;PWD=pw';
$dbh = DBI->connect("DBI:ODBC:$DSN") or die "$DBI::errstr\n";