#!/usr/bin/perl -w

use strict;
use POSIX qw(:sys_wait_h);

$SIG{CHLD} = \&REAPER;

$|=1; #turn off STDOUT buffering

my (@all_kids, @dead_kids);
my @array = qw(a b c d e f g h);

for (1 .. 10) 
{
    die "Bad Fork! $!\n" if ( !defined(my $pid = fork()) );
      
    if ($pid ==0)   #I'm child
    {
        $SIG{INT} = 'IGNORE'; #### comment out to exit on CTL-C
        my $t = int(rand(5))+1;
        print "@array sleeping $t secs\n";
        sleep ($t);
        exit (0);  
    }
            
    push (@all_kids, $pid);    #I'm parent
    print "Started another child process - $pid.\n";      
}

print "All child processes have started...\n";
print "kids are:  @all_kids\n";

$SIG{INT}  = \&ctlc;  #CTL-C handler in parent only
while ( sleep(1), @dead_kids < @all_kids) {} #wait for kids to finish

print "dead kids: @dead_kids\n";
print "All child processes are finished\n";

sub REAPER 
{
   my $pid;
   while ( ($pid = waitpid(-1, WNOHANG)) > 0)
   {
      print "Process $pid exited.\n";
      push @dead_kids, $pid;
   }
}

sub ctlc
{
   print "***** Ctrl-C Trap\n";
   
   my %dead = map{$_ => 1}@dead_kids;
   
   print "still alive: ";
   foreach my $kid (@all_kids)
   {
      print "$kid " if !$dead{$kid};
   }
   
   print "\n";
   print "***** Ctrl-C Trap end\n";
}