6 print STDERR "usage: rsc HOST CMD ARG...\n";
10 if($ARGV[0] eq "-s") {
11 if(!defined($ARGV[1])) {
12 print STDERR "rsc: server side needs arguments\n";
15 $arg = decode_base64($ARGV[1]);
17 for (split /\n/, $arg) {
30 print STDERR "$a[0]: $!\n";
40 $ea = encode_base64($arg);
45 exec "ssh", @sshopts, "$host", "rsc", "-s", $ea;