if ($dbh = DBI->connect(...)) {
...