if($phase==1) # Setup phase
    {
    # set up child signal handler
    $SIG{'CHLD'} = \&$sub;
    $|++;
    %fhlist;
    %fhlist2;
    %fhlist3;
    }
  elsif($phase==2) # Spawn the jobs phase
    {
    # Create an anonymous file handle
    $pid = fork();
    if($pid < 0 or not defined $pid)
      {
      print LOG "$#-> Can't fork! Bad kernel!";
      close LOG;
      die "$#-> Can't fork! Bad kernel!";
      }
    elsif($pid == 0)
      {
      # child process
print JUNKD "/usr/bin/rsh $proc $cmd\n";
      system("/usr/bin/rsh $proc $cmd");
      exit(0);
      }
    else
      {
      # Parent process, toss child file handle into the hash and move on with
      # our lives.
      $fhlist{"$pid"} = $nt;
      $fhlist2{"$pid"} = $mc;
      $fhlist3{"$pid"} = $um;
      }  
    }
  elsif($phase==3) # Wait till the children are done phase
    {
    while(1)
      {
      @kl = keys(%fhlist);
      if($#kl >= 0)
        {
        # mo' to do...
        sleep($sleep);
        }
      else
        {
        last;
        }
      }
    }