Select Code to Download

foreach $host (@HOSTS) {
                    $ssh = Net::SSH::Perl->new("$host",debug=>1,option
+s => ["ConnectTimeout=5","StrictHostKeyChecking=no"]);
          $ssh->login($user);
          ($out, $err, $exit)=$ssh->cmd($exec_cmd);
}

Host host2 
    hostname host2.mydomain
    User user1

my_host: Reading configuration data /home/djones/.ssh/config
my_host: Reading configuration data /etc/ssh_config
...
my_host: Next method to try is publickey.
Received disconnect message: Too many authentication failures for djon
+es
 at /usr/share/perl5/vendor_perl/Net/SSH/Perl/AuthMgr.pm line 143.