================================================
my($host, $username, $new_password, $old_password);
$host = 'xxx.xxx.xx.xxx'
$username = 'blah';
$password = 'secret';

use strict;
use Net::SSH::W32Perl;

## Create a Net::SSH::Perl object and login to the remote host.

my %args;
$args{debug} = 1;
$args{protocol} = 2;

my $ssh = new Net::SSH::W32Perl($host, %args);
$ssh->login($username, $password);
my ($stdout, $stderr, $exit) = $ssh->cmd('ls > /tmp/foo.out',"\n");
=========================================================