Help for this page
$pm->run_on_finish( sub { ... exec(@some_command); print(STDERR "exec failed: $!\n"); _exit($!); }
my $pm = new Parallel::ForkManager( 20 ); ... exec(@some_command); print(STDERR "exec failed: $!\n"); _exit($!); }