my $dbh = \DBI->connect(...)