#!usr/local/bin/perl -w
use Net::SSH::W32Perl;
use Net::SFTP;

BEGIN {
  $ENV{HOME} = $ENV{APPDATA} || $ENV{USERPROFILE}
}

print "\nTryin' to connect. Please wait...\n";
my $login="****";
my $pass="****";
my $host='***.***.***.***';
my @args=(user => $login,
          password  =>  $pass,
          ssh_args  =>  [port=>22, debug => 1]);

my $localfile='D:\\test.txt';
my $remotefile='/folder1/folder2/folder3/folder4/folder5';

my $sftp;

$sftp=Net::SFTP->new($host, @args);
$sftp->error and die "Connection failed: " . $sftp->error;

print "\nConnection was established successfully\n";
$sftp->put($localfile, $remotefile) or die "Can't put file: $!\n";
$sftp->close() or die "Disconnect error: $!\n";

print "ok";