my $dbh = DBI->connect(...., {RaiseError => 1});