$dbh ||= DBI->connect ( ... );