local $SIG{CHLD} = 'IGNORE';
my $x = 1;
while ($x == 1)
{
        if ($pid = fork){               
                while($x == 1)
                {
                        print "$$";
                        if (kill 0 => $pid)
                        {
                                print "child is alive...\n";
                        }
                        else
                        {
                                print "child is dead...\n";
                                last;
                        }
                        sleep 1;
                }
                
                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";
                exec("perl test.pl");
                print "Verlasse jetzt Kindprozess\n";
        }
}