package MyDB;
use strict;
use warnings;

my $DBH;

sub new {
    return bless {}, shift;
}

sub dbh {
    if ( $DBH ) {
        # return $DBH
        print "found existing ",$DBH;
    } else {
        $DBH = 'my handler';
        print "init dbh";
    }
}

1;