use strict;
use Data::Dumper;

use Net::SSH::W32Perl;
use Net::SFTP;
use Memoize;

my $host = 'xxxxxx';
my $user = 'xxxxx';
my $password = 'xxxxxx';

my $sftp =
    Net::SFTP->new(
        $host,
        user     => $user,
        password => $password,
        debug    => 0,
        protocol => 2
    );