-if($ARGV[0] eq "-s") {
- $c = "";
- while(<STDIN>) {
- chomp;
- s/\\(.)/$1/g;
- $c .= $_;
- if(/\\$/) {
- $c =~ s/\\$/\n/;
- next;
- }
- push @a, $c;
- $c = "";
- }
- for (@a) {
- exec @a;
- print STDERR "$a[0]: $!\n";
- exit 1;
- }
-} else {
- $host = shift @ARGV;
- $pid = open SSH, "|-";
- if($pid == 0) {
- exec "ssh", "$host", "rsc", "-s";
- die "$!";
- }
- for (@ARGV) {
- s/([\\\n])/\\$1/g;
- print SSH "$_\n";
- }
- close SSH;
- waitpid $pid, 0;
-}