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) {
....