$DBH = DBI->connect( $DSN, $USER, $PASS ) || die "Connect Error: $DBI::errstr\n";

##</code><code>##

$DBH = DBI->connect( $DSN, $USER, $PASS, { RaiseError => 1} );

##</code><code>##

|| die $DBH->errstr;