Select Code to Download

#!/usr/bin/perl

...
    setpgrp;
    exec $cmd or die "Bad exec: $!";
}

#!/usr/bin/perl

system 'sleep 1';

$ ./813283.pl
child pid=31851 $pid=0
...
31853 31850 31850 18307      \_ ps f -s 18307 -o pid,ppid,pgrp,sid,cmd
31852     1 31851 18307 /usr/bin/perl ./perl.pl
31854 31852 31851 18307  \_ sleep 1