print "process id: $$\n";
my $pid = fork;
my $FH;
unless($pid){
    setpgrp;
    exec('script');
}
print "Child process id is: $pid\n";
while(1) {sleep(5)}