use Net::SFTP;
my $sftp = Net::SFTP->new($host,(user => $user, password => $password,) ,debug=>1);
$sftp->get("dir/Net-SSH-Perl-1.30","Net-SSH-Perl-1.30");