$dbh = DBI->connect(...) || die "DB connect failed: " . $dbh->errstr;