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