sub ssh_go{ my $host = shift;
my $ssh = Net::OpenSSH->new("${user}\@${host}", timeout => $timeout);#, async => 1) if($ssh->error != 0){... }else{ my $out = $ssh->capture({stderr_to_stdout => 1}, "$cmd"); if($ssh->error != 0){... } $LogTable{"$host"} = $out;