use DBI;

...


$dbh=DBI->connect_cached( ... ) or die ...;