system($cmd);

##</code><code>##

  /usr/bin/rsh somehost -l someuser "ls -l" >> /tmp/someFile

##</code><code>##

  my $cmd = qq[$rsh $host -l $id "$command" >> $someFile];
  system($cmd);

##</code><code>##

  my $output = IO::File->new("|tee $someFile");
  local *STDOUT;
  open STDOUT, '>&', $output;

##</code><code>##

  my $cmd = qq[$rsh $host -l $id "$command"];
  system($cmd);

##</code><code>##

  my @cmd = ($rsh, $host, '-l', $id, $command);
  print "Executing: ", join(' ', @cmd), "\n";
  system(@cmd)