Select Code to Download

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

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