#!/usr/bin/perl

use strict;
use warnings;
use POSIX ':sys_wait_h';

my $anzahl=5;
my @kinder=map{$_=0}(0..$anzahl);
my $cmd="sh -c 'sleep %u'";

sub ende()
{
  $SIG{CHLD}='IGNORE';
  kill(9,grep{$_>0}@kinder);
  exit;
}
$SIG{INT}=\&ende;
$SIG{HUP}=\&ende;
$SIG{QUIT}=\&ende;

sub watch_childs()
{
  for my $pid (@kinder)
  {
   if($pid!=0)
   {
    if(waitpid( $pid, WNOHANG )==$pid)
    {
     print "Prozess $pid beendet";
     $pid=0;
     my $status=$?/256;
     if($status!=0)
     {
      print " aber ein Fehler ist aufgetreten! ($status)\n";
      $SIG{CHLD}='IGNORE';
      kill(9,grep{$_>0}@kinder);
      die "Beende mich wegen Fehler in einem Kindprozess ($pid)!\n";
     }
     else
     { print " und kein Fehler ist aufgetreten.\n"; }
    }
    else
    { print "Prozess $pid läuft noch\n"; }
   }
  }
}
$SIG{CHLD}=\&watch_childs;

my $cnt=0;
for my $pid (@kinder)
{
  $cnt++;
  $pid=fork();
  exec(sprintf($cmd,$cnt*2)) unless($pid);
}

# mach was anderes...
while(waitpid( -1, WNOHANG ) != -1)
{
  sleep(3);
  print "Warte\n";
}