$dbh = DBI->connect ...

# not
$dbh = DBI->Connect ...

# or use
$dbh = DBI->connect_cached ...