Select Code to Download

foreach (@config) {
        next unless /^(\b)\s+(\b)\s+(\b)/;
        my $file = $1;
        my $versions = $2;
        my $pidfile = $3;

     Gzip  => 'lib',
     Post   => sub{
...
     kill("HUP", $appid); },
     Dir    => '/var/log/old',
     Flock  => 'yes',

     File   => $file,
     Count  => $versions,
...
               },
     Dir    => '/var/log/old',
     Flock  => 'yes',

        if (defined $log) { print "Looks ok..\n";
        } else {
...
        $log->rotate();
        undef $log;
}

    defined $log or die "An error accured processing config data\n";
    print "Looks ok..\n";
    $log->rotate();
}