if ($dbh = DBI->connect(...)) {
...

##</code><code>##

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