if ($pid = fork){
    #Hier ist der Parent prozeß
    # Pid des Child steht in $pid
    print "Parentprozess\n";
    if (kill 0 => $pid)
    {
        print "child is alive...\n";
    }
    sleep 5;
    if (kill 0 => $pid)
    {
        print "child is alive...\n";
    }
    else
    {
        print "child is dead...\n";
    }
    
    print "ende des ganzen\n";
}
elsif(defined $pid){ # $pid ist hier null falls definiert
    # hier gibt es den child prozess
    # pid des parent über getppid verfügbar
    print "Kindprozess...\n";
    sleep 2;
    print "Verlasse jetzt Kindprozess\n";
}