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