use vars '$dbh';
END{ $dbh->disconnect() if $dbh }

sub connect {
    # connect database handle unless we have one already
    $dbh ||= DBI->connect....
}