use strict;
use Config::General;
use Data::Dumper;

my $conf = Config::General->new('/usr/local/apache/conf/httpd.conf');
my %conf = $conf->getall;

print Dumper \%conf;