use strict;
use Config::General;

my $conf = new Config::General('bar.conf');
my %config = $conf->getall;

use Data::Dumper;
print Dumper \%config;

##</code><code>##

<define>
    destination = /u90/gvc_archive/new
    runonce     = port100
</define>

<macro arbor_ama>
    regex  = /F.*?-P.*?\.(\d+)\.ama/
    dfield = $1
</macro>

<macro dex>
    regex  = /^P.*?_DSC_.*?\.(\d+)\.ama$/
    dfield = $1
</macro>

<rule 10>
    port   = port11,port41, port61,port77,port85
    regex  =
    dfield = NULL
    macro  = rtcd_everything
</rule>

<rule 60>
    port   = 87
    regex  = /F.*?\-P.*?_FCC_(\d+)_.*?\.cdr/
    dfield = $1
    macro  = usl1
    macro  = usl2
</rule>