Select Code to Download

my $maxProcesses=2;
my $pm = Parallel::ForkManager->new($maxProcesses, $tempDir);
...
  } # End sub
    
);

use strict;
use XML::Smart;
...
  $log->info(qq/[$i] Finished checking host: $host /);
  $pm->finish(0, \$host );
}

2013-09-13_07:29:13 | INFO | main:: | [0] Checking host: a01719 XML::S
+mart
2013-09-13_07:29:13 | INFO | main:: | [0] Finished checking host: a017
+19
...
2013-09-13_07:29:13 | INFO | main:: | [0] Finished checking host: a017
+19
2013-09-13_07:29:13 | INFO | main::__ANON__ | PID:2167,EXIT_CODE=0,IDE
+NT=,EXIT_SIGNAL=0,CORE_DUMP=0,DATA=(REF_TYPE=)
No message received from child process 2167!