#!/usr/bin/perl -w
use strict;
use Proc::ProcessTable;

#  ignore the child
$SIG{CHLD} = 'IGNORE';

# create 5 child processes for demo purpose. arrange them so they stay
# long enough so we can find them later

for(1..5){
        sleep(10) and exit if(fork == 0);
}

# list all process running in your machine and find all 
# child process
for my $p (@{new Proc::ProcessTable->table}){
        print $p->pid," child of $$\n" if($p->ppid == $$);
}
[download]