sub StartJob {

    my $pid;
    my $sid = shift;

FORK: {
    if ($pid = fork) {
        #
        # This is the dispatcher!
        #
        $JobPIDs{$pid} = $sid;               # add pid, sid pair to the hash
    }
    elsif ($pid == 0) {
.... 

##</code><code>##

foreach $pid ( keys(%TrappedPIDs) ) {
        $rc = $TrappedPIDs{$pid};

        print " CHECKING: trapped pid: $pid    RC: $rc \n";
        
        if ( exists($JobPIDs{$pid}) and $rc == 0 ) {
           # do the processing ..
        }