my $dbh = DBI->connect(....) or die $DBI::errstr;


##</code><code>##


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