use strict;
use warnings;

my $pid = fork();
die "Fork ging schief: $!\n" unless(defined $pid); 
if ($pid == 0)
  {
  print "Dies ist der Kindprozess $pid\n";
  }
else #$pid != 0
  {
  print "Dies ist der Elternprozess $pid\n";
  }