...
system('scp', '/users/myuser/merc/rem_snew.pl', "$remoteuser\@$remoteserver:/users/$remoteuser/tmp/rem_snew2.pl");

my $result = `ssh $remoteuser\@$remoteserver perl /users/$remoteuser/tmp/rem_snew2.pl`;

print "$result\n";
system('ssh', "$remoteuser\@$remoteserver", 'rm', ...);


##</code><code>##

use IPC::Open2;
sub backtick {
  my $pid = open2(my $rfh, undef, @_);
  my $buf;
  while (<$rfh>) { $buf .= $_; }
  close($rfh);
  waitpid $pid, 0;
  $buf;
}