Select Code to Download

#!/usr/bin/perl -w
use strict;
...
     }
}
###################################################

#!/usr/bin/perl -w
use strict;
...
        print $p->pid," child of $$\n" if($p->ppid == $$);
}