my $DBH = DBI->connect("DBI:ODBC:MSSQL",$user,$pass) or die "Couldn't open database: $DBI::errstr\n";