my $pm = new Parallel::ForkManager( 20 );

for my $host (@hosts) { 
    $pm->start($host) and next; 
    exec(@some_command); 
    print(STDERR "exec failed: $!\n"); _exit($!); 
}