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?

<trim>
$ssh = Net::SSH::Perl->new("192.168.1.69",debug=>1,protocol=>2,options
=>[ "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");
<trim>

tia, y

.

Relevant Pages