use Config::General;

my $conf   = Config::General->new("foo.conf");
my %config = $conf->getall;
my $filename = join('/',$config{PATH}, $config{FILE});

open INFILE, $filename or die "Can't open $filename: $!";