Select Code to Download

#!/usr/bin/perl -w

...
    $SIG{'CHLD'} = $reaper if $reaper;
}

[sgifford@sghome pa1]$ perl /tmp/t107
My PID is 18286
Running reaper.
Use of uninitialized value in scalar assignment at /tmp/t107 line 37.

$ ps -ef |grep 18286
sgifford 18286 16547  0 14:02 pts/0    00:00:00 perl /tmp/t107
...
sgifford 18301 18286  0 14:02 pts/0    00:00:00 [perl <defunct>]
sgifford 18303 18212  0 14:03 pts/20   00:00:00 grep 18286

#!/usr/bin/perl -w

...
    my $reaper = $self->SigChildHandler(\$child_pid);
    $SIG{'CHLD'} = $reaper if $reaper;
}

$ perl /tmp/t107
My PID is 18322
...
Running reaper.
Running reaper.
Running reaper.