Can't set socket non-blocking: Bad file descriptor at C:/Perl/site/lib/Net/SSH/Perl.pm line 216.

##</code><code>##

Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::FastCalc at C:/Perl/site/lib/Crypt/DSA/KeyChain.pm line 6
Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::FastCalc at C:/Perl/site/lib/Crypt/DSA/Key.pm line 6
Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::FastCalc at C:/Perl/site/lib/Crypt/DSA/Util.pm line 6
Not an ARRAY reference at C:/Perl/site/lib/Math/BigInt/Calc.pm line 251.

##</code><code>##

#!/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();