[Ssh-sftp-perl-users] Net::SSH::Perl Performance

[Wojtak, G. <Gre...@qu...>]

Hi,

=20

I have installed Net::SSH::Perl and wrote a little test program that
simply ssh's to another host and runs hostname.  The only problem is, it
takes ~5 minutes to do this.  Here is the script I am testing:

=20

#!/usr/bin/perl

#

# A test of Net::SSH::Perl

#

=20

use Net::SSH::Perl;

=20

%args =3D ( 'debug'=3D> 1 );

=20

my $ssh =3D Net::SSH::Perl->new( 'somehost', %args );

$ssh->login( 'someuser', 'somepass' );

=20

my( $out, $err, $exit ) =3D $ssh->cmd( '/usr/bin/hostname' );

=20

print "$out";

print "$err";

=20

It hangs doing the login() method, specifically after this debug line:

=20

ql1mgt1: Algorithms, s->c: 3des-cbc hmac-sha1 none

=20

and after this debug line:

=20

ql1mgt1: Computing shared secret key

=20

about 2 minutes each.

=20

Does anyone have any idea what it is doing?

=20

The command eventually comes back properly, but 5 minutes is way too
long to ssh to another server and run /usr/bin/hostname.

=20

OS is Solaris 10, Perl 5.8.4, Net::SSH::Perl was built with gcc 3.4.3

=20

Thanks!

=20

Greg