Select Code to Download

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

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

|| die $DBH->errstr;