Hey, I believe that in most cases all you want to do is to simply define some variables... Here's a stupid lilttle routine for reading a config file with one 'variablename=value' per line. One can even #-comment lines out in the config file as well ;-)

# usage: readConfig("filename")
# returns: num. of parameters set
sub readConfig
{
    my $filename=shift;
    my $i=0;
    if(open(CONF, $filename))
    {
        while(<CONF>)
        {
            if(/^\s*(\S+)\s*=\s*([^(#*|\s*)]+)/)
            {
                $$1=$2;
                ++$i;
            }
        }
        return($i);
    }
    else
    {
        return(0);
    }
}
[download]