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

##</code><code>##

#vpn.pl
#log onto vpn and get config
open(VPNOUTFILE,">vpnoutput.txt");

use Net::SSH::Perl;

my $policy = 0;
my $gateway = 0;
my $vpn = 0;
my $address = 0;
my $group = 0;


print "\nPlease enter IP: ";
$ip = <STDIN>;
print "\nPlease Enter Username: ";
$user = <STDIN>;
print "\nPlease Enter Password: ";
$password = <STDIN>;

my $ssh = Net::SSH::Perl->new($ip);
$ssh->login($user, $password);
my($stdout, $stderr, $exit) = $ssh->cmd(get sys);