#!/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");