my $dbh= DBI->connect(
    "dbi:ODBC:Driver=SQL Server;Server=$dbsrvr",
    '',
    '',
    { RaiseError => 1, PrintError => 0, ... },
);