Select Code to Download

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

my $dbh;
sub george_connect {
...
    }
    return $dbh;
}