#!/usr/bin/perl 


my @output;
my $rc;
my $command = "ls";
my $userid = "saai";
my $password = "saaisi0";

($rc, @output) = rexec(xxx.xx.xx.xx,$command, [$userid, [$password]]);
for (@output) {
	print "$_\n";
}

##</code><code>##

Error opening sock Invalid argument at C:/Perl/site/lib/Net/Rexec.pm line 20.