package My;
use DBI;
{
    my $dbh = DBI::connect( . . .); # add error handling
    sub dbh () { $dbh }
}
# call up the handle with My::dbh().
# You don't need to import anything from DBI unless you
# want to see or modify its globals

package My::Collection;
# . . .