my $dbh = DBI->connect('DBI:ODBC:MyDB',undef,undef,{RaiseError => 1});
...