#!/usr/bin/perl -w

use Net::SSH::W32Perl;
use Win32;

$ENV{USERNAME} = Win32::LoginName();
$ENV{HOME} = Win32::GetFolderPath( Win32::CSIDL_PERSONAL ); 

$ip = 'x.x.x.x';
$ssh = Net::SSH::W32Perl->new($ip);
$ssh->login("username","password");
($out,$err,$ext) = $ssh->cmd("ls");
$ssh->close();