use Parallel::ForkManager; use Net::SSH::Perl; $pm = new Parallel::ForkManager(10); foreach my $server (@big_list) { my $pid = $pm->start and next; ssh('root@'.$server, '/opt/bin/some_backup_script'); $pm->finish; } print "All backups done";