sub george_connect {
    return DBI->connect('yada yada');
}

##</code><code>##

my $dbh;
sub george_connect {
    if ( !$dbh ) {
       $dbh = DBI->connect('yada yada');
    }
    return $dbh;
}