use strict;
use POSIX ":sys_wait_h";

$SIG{'CHLD'} = \&REAPER;

sub REAPER {
  my $pid = 0;

  while (($pid = waitpid(-1, &WNOHANG)) > 0) {
    print STDOUT "$pid returned $?\n";
  }

  $SIG{'CHLD'} = \&REAPER;
}

sub new_thread {
  my $result = 0;

  if (my $pid = fork()) {
    return($pid);
  }

  $result = 1;

  exit($result);
}

my $child = &new_thread();
print STDOUT "got a new child: $child\n";

for (;;) {}

1;