if(@ARGV != 1)
{
	print "$CMD usage: ScriptDaemon.pl Script \n";
	exit 0;
}
my $scriptname = $ARGV[0];
local $SIG{CHLD} = 'IGNORE';
local $SIG{TERM} = 'schliessen';
while (1)
{
	if ($pid = fork)
	{
		#Hier ist der Parent prozeß
		print "Parentprozess\n";
		while(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($scriptname);
		print "Verlasse jetzt Kindprozess\n";
	}
}


sub schliessen
{
	my $befehl = "kill -15 $pid";
	my $result = `$befehl`;
	print "Beenden";
	exit 0;
}