#!/usr/bin/perl
 
use Parallel::ForkManager;
$start = time();
use Getopt::Long;
$time=0;
$delimiter=0;
$child=30;
$multiline=0;
$delimiter=' ';
$result=GetOptions ('command=s' => \$command,"time" => \$time,"delimiter=s" => \$delimiter,"child=s" => \$child,"multiline" => \$multiline);
 
 
while (defined($line = <STDIN>)) {
chomp($line);
push @all_data,$line
}
 
$pm = new Parallel::ForkManager($child);
for $data (@all_data) {
# Forks and returns the pid for the child:
my $pid = $pm->start and next;
chomp($data);
$test=`ssh -q -o ConnectTimeout=5 $data '$command'`;
chomp($test);
#$test =~ s/\n/ /g;
 
if ($multiline ne '0')
{
my @lines = split /\n/, $test;
foreach my $line (@lines) {
print "$data$delimiter$line\n";
}
}else
{
print "$data$delimiter$test\n";
}
 
 
 
 
$pm->finish; # Terminates the child process
}
 $pm->wait_all_children;
$end = time();
if ($time eq '1')
{
print "\nTime taken was ", ($end - $start), " seconds\n\n" ;
#print "\n\n\n\ndone\n\n\n\n";
}