#!/usr/bin/perl

$SIG{CHLD} = sub { 
	my $pid = wait; 
	print "Child $pid exited with status $?\n";
};

foreach my $i (1..10)
{
  if (!fork())
  {
    # Child
    sleep(1);
    exit($i);
  }
  sleep(2);
}