#!/usr/bin/perl
scp /users/myuser/merc/rem_snew2.pl remoteuser@remoteserver:/users/remoteuser/tmp/rem_snew2.pl
my $result=$(ssh remoteuser@remoteserver perl /users/remoteuser/tmp/rem_snew2.pl)
print "$result\n";
ssh remoteuser@remoteserver rm /users/remoteuser/tmp/rem_snew2.pl