#!/usr/bin/perl -w

use strict;
use Parallel::ForkManager;

my (@hosts) = ("192.168.0.1","192.168.0.2","192.168.0.3");
my $sshscript = "ssh.pl";

my $maxProbes = 3; # set this to one to do one at a time

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

foreach my $hostname (@hosts) {
        $pm->start and next;
        my $stdout = `./$sshscript $hostname`;
        print "$stdout\n";
        $pm->finish;
}
$pm->wait_all_children;
print "done\n";