perl filename.pl remoteuser remoteserver

##</code><code>##

#!/usr/bin/perl

die "Usage:  $0  remoteuser  remoteserver\n"
    unless ( @ARGV == 2 and $ARGV[0] =~ /^\w+$/ and $ARGV[1] =~ /^\w+(\.\w+)*$/ );

paranthesis( @ARGV );   # This is important

sub paranthesis {

    my ( $remoteuser, $remoteserver ) = @_;  # equally important

    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',
        "/users/$remoteuser/tmp/rem_snew2.pl" );

}

##</code><code>##

ping -c 2 remoteserver
ssh remoteuser@remoteserver ls -d tmp