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";
	}
}