#!/usr/bin/perl -w

use strict;

for ( my $i = 0; $i < 11; $i++ ) {
  defined( my $pid = fork() ) or print STDERR "Unable to fork!";

  if ( $pid ) {
    print "Child $i is $pid\n";
  } else {
    print "Hi!  I'm just a kid.. I'm going to sleep now..\n";
    sleep rand(10);
    print "*Yawn* I'm awake!  Huh?  It's me! Kid $$!  Bye bye!  Time to die!\n";
    exit 0;
  }
}

1 while wait > 0;

print "Screw this, I'm done waiting for those kids\n";