Hi, maybe $@ is getting clobbered somewhere. Try Try::Tiny:

use Try::Tiny;

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

Hope this helps!