[Ssh-sftp-perl-users] Net::SSH::Perl login authentication is taking 1 minute 40 seconds

[rkb@i.frys.com]

I'm developing a cgi script that uses Net::SSH::Perl, but the login
authentication is taking 1 minute 40 seconds.  As you can imagine, 1:40
too long especially since I will be connecting to 4 servers.

Is this a known issue and is there a workaround?

Here's my test script and the output.

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Net::SSH::Perl;
use Data::Dumper;

$|++;

my $imap1 = 'imap1';
my %params = (debug => 1, protocol => 2);

print header(),
      start_html(),
      "creating ssh object: ", scalar localtime, br;

warningsToBrowser(1);

my $ssh_imap1 = Net::SSH::Perl->new($imap1, %params) || die "can't ssh $!";
print "ssh object created: ", scalar localtime, "<br>$/";

print "logging in: ", scalar localtime, br;
$ssh_imap1->login('me');
print "logged in: ", scalar localtime, br;

my ($stdout, $stderr, $exit) = $ssh_imap1->cmd('pwd');
$stdout =~ s/\n/<br>/g;

print "<br>$stdout",
      end_html();

--------------------------------------------------------------------------------------

creating ssh object: Sat Dec 16 21:44:04 2006
ssh object created: Sat Dec 16 21:44:04 2006
logging in: Sat Dec 16 21:44:04 2006
logged in: Sat Dec 16 21:45:44 2006

/home/me