in httpd.conf

PerlSetVar streamDB "/adconfig/config"
PerlSetVar clickDB "/adconfig/click"
PerlChildInitHandler Config
PerlTransHandler Serve

##</code><code>##

in Config.pm
sub handler
{
    my $r=shift;
    my $config=$r->dir_config('streamDB');
    my $click=$r->dir_config('clickDB');

    %CORE::GLOBAL::config = new BerkeleyDB::Hash
        -Filename => $config,
        -Flags => "DB_RDONLY"
        or die "Cannot open file $config: $!$BerkleleyDB::Error\n";
}

##</code><code>##

In Serve.pm
sub handler
{
    my $r=shift;

    unless (scalar(keys %CORE::GLOBAL::config))
    {
        die ("no config data loaded");
    }
    # Code Always dies
}