#!/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
		print FHlog (ssh($serverName, "hostname; sleep 30"));
		exit(0)
	}
	else {
		$serverPid{$serverName} = $pid;
	}
}

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

close(FHServerList);
exit()