#!/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";
}