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

##</code><code>##

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