Select Code to Download

$SIG{CHLD}=\&catchChildDeath;

...
    printf "There are %d children running\n",$children;

}

sub my_child_work{
                my $x = shift;
...
                sleep 1;
                exit;
}