Net::SSH::Perl extremely slow?

I have a simple perl script that connects to a remote machine and
executes a command. Net::SSH::Perl seems etremely slow, but I've tried
it on 2 machines (Suse 9.3 and Suse 9.2). They aren't the fastest
machine, but both are over 2GHz so I thought I'd be ok. Both have 1 Gig
of RAM. I've tested over the network and against the loopback
interface.

here's the code. It ends up executing completely, it just takes 20-30
seconds.

Does this seem unusually long to anyone?


$ssh = Net::SSH::Perl->new("192.168.1.69",debug=>1,protocol=>2,opti ons
=>[ "UserKnownHostsFile /var/lib/wwwrun/.ssh/ssh_known_hosts",
"IdentityFile /var/lib/wwwrun/.ssh/id_dsa" ] );
$ssh->login("webrun");
#
($out, $err, $exit)=print $ssh->cmd("ls -la");


tia, y

Re: Net::SSH::Perl extremely slow?

"Yon" writes:

> I have a simple perl script that connects to a remote machine and
> executes a command. Net::SSH::Perl seems etremely slow, but I've tried
> it on 2 machines (Suse 9.3 and Suse 9.2). They aren't the fastest
> machine, but both are over 2GHz so I thought I'd be ok. Both have 1 Gig
> of RAM. I've tested over the network and against the loopback
> interface.
>
> here's the code. It ends up executing completely, it just takes 20-30
> seconds.
>
> Does this seem unusually long to anyone?
>
>
> $ssh = Net::SSH::Perl->new("192.168.1.69",debug=>1,protocol=>2,opti ons
> =>[ "UserKnownHostsFile /var/lib/wwwrun/.ssh/ssh_known_hosts",
> "IdentityFile /var/lib/wwwrun/.ssh/id_dsa" ] );
> $ssh->login("webrun");
> #
> ($out, $err, $exit)=print $ssh->cmd("ls -la");
>
>
> tia, y

Try to supply passwd and port like this:
$ssh = Net::SSH::Perl->new("192.168.1.69", port=>22);
$ssh -> login('webrun','passwd');

My time is around 5 seconds.

HTH, Radek