my $cfg = Config::IniFiles->new( -file => "./$p_cfgfile" );
foreach my $group ($cfg->Groups) {
    ##  do something with: $cfg->val($group, 'save_dir');

    foreach my $member ($cfg->GroupMembers($group)) {
        ##  do something with: $cfg->val($member, 'dir');
        ##  do something with: $cfg->val($member, 'glob');
        ##  do something with: $cfg->val($member, 'archive');
    }
}