Received disconnect message: Too many authentication failures for abc at /usr/local/lib/perl5/site_perl/5.10.0/Net/SSH/Perl/AuthMgr.pm line 143 #### sub connectToServer{ my $username = "abc"; my $serverName = $_[0]; chomp($serverName); my $ssh; eval { $ssh = Net::SSH::Perl->new($serverName) or die "Unable to connect"; }; if ($@){ warn "Connection failed: $@\n"; return "Problem to connect"; }else{ $ssh->login($username); return $ssh; } }