$SIG{CHLD} = sub { 
      my $pid = waitpid(-1, 0);
       print ">> eof PID $pid -> $?\n";
   };

##</code><code>##

  PARENT: PID is 3433
  CHILD: PID is 3434, PPID is 3433
>> eof pid 3434 -> 0