Select Code to Download

Can't set socket non-blocking: Bad file descriptor at C:/Perl/lib/Net/
+SSH/Perl.pm line 213, <GEN0> line 1

#vpn.pl
#log onto vpn and get config
...
my $ssh = Net::SSH::Perl->new($ip);
$ssh->login($user, $password);
my($stdout, $stderr, $exit) = $ssh->cmd(get sys);