#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH qw(ssh);


my %serverPid;
my ($testkey, $testvalue);
die("Could not open file list: $!") unless
	open(FHServerList, "<", "./servers");
die("Could not open log file: $!") unless
	open(FHlog, ">>", "./log");
	
	
while(<FHServerList>) {
	my $serverName = $_;
	chomp($serverName);
	my $pid = fork();
	if($pid == '0'){
		#Child process
		#open(FHTempLog, ">", "/tmp/$serverName.tmp");
		open(STDOUT, '>', "/tmp/$serverName.tmp") or die ("Cannot create temp log file for $serverName: $!");
		open(STDERR, ">&STDOUT");
		ssh($serverName, "for x in 1 2 3 4 5 6; do echo -n \$x; hostname; done");
		exit(0)
	}
	else {
		$serverPid{$serverName} = $pid;
	}
}

while(($testkey, $testvalue) = each %serverPid) {
	waitpid($testvalue, 0);
		print ("Done with $testkey\n");
	}

seek(FHServerList, 0, 0);
while(<FHServerList>) {
	chomp($_);
	my $tmpFileName = ("/tmp/$_" . ".tmp");
	open(FHtempFile, "<", $tmpFileName) or die "Could not open tempfile: $!";
	while(<FHtempFile>) {
		print FHlog $_;
	}
	close(FHtempFile);
}

close(FHServerList);
exit()