use strict;
use warnings;

my $x = 1;
my $pid = fork();
while($x == 1)
{
	print "$$";
	$pid = fork();
	if(!defined $pid)
	{
		die "Could not fork!";
	}
	elsif($pid == 0)
	{
		#Hier bin ich im Child-Prozess
		#$x++;
		#print "Ich bin das Kind: ",$$,"\tx:$x\n";
		print "starte Schript\n";
		exec("perl test.pl");
	}
	else
	{
		#Hier bin ich im Parent-Prozess
		#print "ich bin der Vater: ",$$,"\tx:$x\n";
		print "Warte auf Child\n";
		wait();
	}
}
#kill(0, $pid);