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

##</code><code>##

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

##</code><code>##

     File   => $file,
     Count  => $versions,
     Gzip   => 'lib',
     Post   => sub{
           open(IN, $pidfile) or die "$pidfile: $!";
           $appid = <IN>;
           chomp $appid;
           kill("HUP", $appid);
               },
     Dir    => '/var/log/old',
     Flock  => 'yes',

##</code><code>##

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

##</code><code>##

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