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