my $MAX_PROCESSES  = 120;
	my $pm = new Parallel::ForkManager($MAX_PROCESSES);
	
 	$pm->run_on_finish(
 	sub {
            my ($pid, $exit_code, $ident) = @_;	   
            print "run_on_finish: $ident (pid: $pid) exited " . "with code: [$exit_code]\n";
    somehow_pass_exit_code_and_ident_to_parent_for_processing();		  
             }
 			   );
 	$pm->run_on_start(
 			  sub {
 			      my ($pid,$ident)=@_;
 			      print "** $ident started, pid: $pid\n";
 			  }
 			  );

	for(my $i=0; $i< @hosts; $i++){
          $pm->start($hosts[$i]) and next;   
           system(@some_command);
           $return_code = $? >> 8;
           $pm->finish($return_code);
        }