use Try::Tiny;

print "Connecting to MSSQL terminology database... ";
try {
 $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=$SqlDatabaseName;UID=$SqlDatabaseUser;PWD=$SqlDatabasePassword
+", {PrintError => 0, RaiseError => 1, AutoCommit => $AutoCommit, FetchHashKeyName => 'NAME_lc',}) ;
 $dbh->{'mysql_enable_utf8'} = 1;
} catch {
 print "ERRRRRRRRRRRROR: $_\n"; # error in $_
};