Select Code to Download

#!/usr/bin/perl -w
use strict;
...
19529  2360 19529  2360  \_ /usr/bin/perl -w ./964597.pl
19534 19529 19529  2360      \_ ps Tf -o pid,ppid,pgrp,sid,cmd
19533     1 19530  2360 sleep 20

#!/usr/bin/perl -w
use strict;
...
 2360  2358  2360  2360 bash -rcfile .bashrc
19537  2360 19537  2360  \_ /usr/bin/perl -w ./964597.pl
19542 19537 19537  2360      \_ ps Tf -o pid,ppid,pgrp,sid,cmd

     printf "child%s alive\n", kill(0, $snoop) ? "":" not";