$your_package::DBH = undef;

sub _get_dbh() {
    defined($your_package::DBH) 
        and return $your_package::DBH;
    $your_package::DBH = DBI->connect...
    return $your_package::DBH;
}