my $dbs = "dbi:ODBC:DRIVER={SQL Server};SERVER={$server}";
 $dbh = DBI->connect( $dbs, $username, $password, { PrintError => 1 } );