# do a $dbh = DBI->connect(...)
$dbh->{'RaiseError'} = 1;