http://qs1969.pair.com?node_id=664894

cristianekw has asked for the wisdom of the Perl Monks concerning the following question:

Hello
Im having many problems to make a SSH connection works here. I'm using Windows. I tried to use Net::SSH::Perl but it generated the following error:
Can't set socket non-blocking: Bad file descriptor at C:/Perl/site/lib +/Net/SSH/Perl.pm line 216.
I tried to use Net::SSH::W32Perl but it generated the following error (Math::BigInt and Math::BigInt::FastCalc are installed):
Math::BigInt: couldn't load specified math lib(s), fallback to Math::B +igInt::FastCalc at C:/Perl/site/lib/Crypt/DSA/KeyChain.pm line 6 Math::BigInt: couldn't load specified math lib(s), fallback to Math::B +igInt::FastCalc at C:/Perl/site/lib/Crypt/DSA/Key.pm line 6 Math::BigInt: couldn't load specified math lib(s), fallback to Math::B +igInt::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 25 +1.

Here is the 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();

What am I doing wrong?