Select Code to Download

#!/usr/bin/perl -l

...
my $sftp = Net::SFTP->new( $host, 
    user => $user, password => $pass, 
    ssh_args => [ debug => 1 ] );

%perl sftp_test.pl
 Reading configuration data /usr/home/*****/.ssh/config
...
 Entering Diffie-Hellman Group 1 key exchange.
 Sent DH public key, waiting for reply.
Received disconnect message: Invalid packet header.  This probably ind
+icates a problem with key exchange or encryption. at /usr/local/lib/p
+erl5/site_perl/5.8.4/Net/SSH/Perl/Kex/DH1.pm line 41