package DBHandle;
use DBI;
my $dbh;

sub new {
   $dbh ||= DBI->connect(...) or die "...";
   return $dbh;
}

# and everywhere you need it:

my $dbh = new DBHandle;