Select Code to Download

...
system('scp', '/users/myuser/merc/rem_snew.pl', "$remoteuser\@$remotes
+erver:/users/$remoteuser/tmp/rem_snew2.pl");
...
print "$result\n";
system('ssh', "$remoteuser\@$remoteserver", 'rm', ...);

use IPC::Open2;
sub backtick {
...
  waitpid $pid, 0;
  $buf;
}