#!/usr/bin/perl

$ppid = $ARGV[0];
print "$ppid";

defined(my $pid=fork) or die "Can't fork: $!";
exit if $pid;
setsid or die "Can't start a new session: $!";

while(1)
{
   sleep(10);
   print "DISPATCHING SIGNAL\n";
   kill(SIGUSR1, $ppid);
}