use Win32::RcmdRun;

my $server = shift @ARGV;
my @cmdlines = @ARGV;

my @output = Win32::RcmdRun::rcmdrun($server, @cmdlines);

foreach (@output) {
	print "output is:\n$_\n";
}