use Net::SSH::Perl::SSH1 ;

$scon = Net::SSH::Perl->new ("com123.mynetwork.mydomain.com");
$scon->login("user123","pass123");
print "looking around ...\n";
($output,$errors,$exit) = $scon->cmd("ls -l");
print $output;

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

#!/opt/local/bin/perl
#
# checkDiskspace.pl: See if any partitions are greater than a percentage and notify
#
use strict;
use warnings;

use Net::SSH::Perl;
use Math::BigInt::GMP;  # Don't forget this!

$| = 1;

my $alert_percent = 75;
my $server = 'com123.mynetwork.mydomain.com';
my $username = 'user123';
my $password = 'pass123';


# However you wanna notify yourself (like email)
sub alert_notify {
    my $message = shift;
    print "STUB: $message\n";
}

# Log into server
print "Creating ssh object... ";
my $ssh = Net::SSH::Perl->new($server); # Error check this
print "done\n";
print "Logging into server... ";
$ssh->login($username, $password); # Error check this
print "done\n";

# Check df
my $command = "df";
print "Running command ($command)... ";
my ($stdout, $stderr, $exit) = $ssh->cmd($command); # Check output
print "done\n";

# Find percentage
foreach my $df_line (split(/\n/, $stdout)) {
    # If disk space usage percent > $alert_percent, notify
    if ($df_line =~ /\s+(\d+)%\s+(\/.*)/ && $1 >= $alert_percent) {
        alert_notify ("[$server] device $2 at $1 percent!");
    }
}

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

use strict;
use warnings;

use Net::SSH::Perl;

my $server = 'alpha12z';
my $user = 'user123';
my $pwd = 'pass123';

my $ssh = Net::SSH::Perl->new($server);

$ssh-> login($user, $pwd);
my ($out, $err, $exit) = $ssh-> cmd("ls");