#!/usr/bin/perl
use strict;
use warnings;
use POSIX;

my $forks=10;
while($forks){
   my $pid=fork() or die "no fork!\n";
   unless($pid){
      # im kindprozess
      print "CHILD: $$ running\n";
      sleep(10);
      print "CHILD: $$ exit\n";
      exit;
   }else{
      # im mutterprozess
      $forks--;
      print "MASTER: add $pid\n";
      sleep(1);
   }
}

# Auf die Kinder warten
my $still_running=1;
while($still_running){
   $still_running=waitpid(-1, WNOHANG);
}