#!/usr/bin/perl -w

use Net::SFTP;

my $host = "10.10.10.10";<br>
my %args = (<br>
   user => 'user',<br>
   password => 'pass',<br>
   debug => 'false'<br>
);

my $sftp = Net::SFTP->new($host, %args);<br>
print "connected!";

$sftp->get("/tmp/tmp/test2.txt", "/home/advserv/sean/test2.txt");

##</code><code>##

# ./sftp2.pl<br>
advlogs: Reading configuration data /home/advserv/.ssh/config<br>
advlogs: Reading configuration data /etc/ssh_config<br>
advlogs: Connecting to 10.10.10.10, port 22.<br>
advlogs: Remote version string: SSH-2.0-OpenSSH_4.1

advlogs: Remote protocol version 2.0, remote software version OpenSSH_4.1<br>
advlogs: Net::SSH::Perl Version 1.30, protocol version 2.0.<br>
advlogs: No compat match: OpenSSH_4.1.<br>
advlogs: Connection established.<br>
advlogs: Sent key-exchange init (KEXINIT), wait response.<br>
advlogs: Algorithms, c->s: 3des-cbc hmac-sha1 none<br>
advlogs: Algorithms, s->c: 3des-cbc hmac-sha1 none<br>
Segmentation Fault (core dumped)

##</code><code>##

# perl -v

This is perl, v5.6.1 built for sun4-solaris-64int
(with 48 registered patches, see perl -V for more detail)

##</code><code>##


# perl -v

This is perl, v5.10.0 built for sun4-solaris