#! /usr/bin/perl
use strict;
use warnings;
use Net::SSH::W32Perl;
use Data::Dumper;
my $host = "xxx.xxx.xxx.xxx";
$ENV{HOME} = "C:\\temp";

my $sftp = Net::SSH::W32Perl->new($host, protocol => '2', debug => '1');
$sftp->login("user", "password");
my ($out, $err, $exit) = $sftp-> cmd("ls");

exit;