$dbh = DBI->connect( "DBI:ODBC:driver={SQL Server};Server=$server;Database=$database;UID=$dbusername;PWD=$dbpassword", { PrintError => 1, RaiseError => 1 } )