Argument "CHLD" isn't numeric in subroutine entry at /usr/lib/perl5/5.6.0/i386-linux/POSIX.pm line 38.

##</code><code>##

use POSIX qw( :sys_wait_h );

$SIG{CHLD} = \&REAPER;

sub REAPER {
        my $kid;
        while (($kid = waitpid (-1, &WNOHANG)) > 0) {
                if (exists $Children{$kid}) {
                        $::logger->info ("Process: $Children{$kid} reaped");
                        $children --;
                        delete $Children{$kid};
                }
        }
        $SIG{CHLD} = \&REAPER;
}