#!/usr/bin/perl -w

use strict;
use vars qw($file);

$file = $ARGV[0];
open(CONF,$file) || die("$!: $file");
while(<CONF>) {
... code for parsing and storing config ...
}
close(CONF);
... more code for doing other stuff ...

##</code><code>##

PerlModule My::Package::Foo;
<Location /foohandler>
 SetHandler perl-script
 PerlHandler My::Package::Foo;
 PerlSetVar FooConfig /some/patch/config.cfg
</Location>

##</code><code>##

package My::Package::Foo;

sub handler {
 my($r) = shift;
 my($file) = $r->dir_config('FooConfig');
 open(CONF,$file) || die("$!: $file");
 while(<CONF>) {
 ... same code for parsing stuff as before ...
 }
 close(CONF);
 ... more code for doing other stuff ...
}

##</code><code>##

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/