use strict;
use warnings;

my $pid = undef;

foreach my $i (1..10) 
  {
  $pid = fork();
  if (defined($pid)) 
    {
    if ($pid == 0)           # child
      { 
      print "Hier ist Kind $i\n";
      exit(0);
      } 
    else                     # parent
      {
      print "Eltern: Kind $i ($pid) gestartet \n";
      }
    }
  }

print "Ende...\n";