sub get_dbh_factory {
    my @config = @_;
    return sub {
        return DBI->connect(@config);
    }
}

sub somewhere_else {

    my $dbh_factory = get_dbh_factory( ... );

    if(fork == 0) {
        my $dbh = $dbh_factory->();
        ...
    } else {
        my $dbh = $dbh_factory->();
        ...
    }
}