my $dbh = DBI->connect($db, $user, $auth) || die $dbh->errstr; #### (my $dbh = DBI->connect($db, $user, $auth) ) || ( die $dbh->errstr );