while ($callCount <= $totalCalls) { 
  for (1..$TotalProcessToFork) { 
          print "Call -> $callCount"; 
          if($pid = fork) { 
              #in Parent Process 
              print " :: PID -> $pid\n"; 
              push(@list_of_pid, $pid); 
          } else { 
              #in Child Process 
              `touch $callCount`; 
          } 
          $callCount++; 
      } 
  }