[Ssh-sftp-perl-users] issues with transfer speeds using NET::SFTP

[Isaacson T. <Tra...@HC...>]

I am having transfer speed issues with NET::SFTP, via the following script
(which I copied from a google search):

----------------------------------------------------------------------------
--------------------
#!/usr/bin/perl
use strict;
use Net::SFTP;

# Net::SFTP does no error reporting
my $sftp = undef;
#eval{
$sftp = Net::SFTP->new("host",
                    user=>"loginID",
                    password=>"password",
                    );
#};
if ($@) { print "Sftp connection failed:\n  $@\n"; }

if (! $sftp) {
  print "I can't connect!\n";
}else{
  print "SUCCESS!\n";
}

system('date');
print "getting file . . .\n";
$sftp->get ("sftptestdata", "sftptestdata");
system('date');
----------------------------------------------------------------------------
-------------------

I only get 10-->kb<--/sec with the above script.  command line sftp and ftp
provide something around ~3mb/sec.  so far I have been unable to locate a
solution via the mighty google.  has anyone ran across this issue?



thanks.
Trace