use Net::SSH qw(sshopen2);
 
sub ssh {
 
 my $user = "jdoe";
 my $host = "192.168.253.5";
 my $cmd = "/home/jdoe/test.pl"; 
 
 sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";
 
 close(READER);
 close(WRITER);
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
 
rename "/home/jdoe/test", "/home/jdoe/testnew"
           or print "/home/jdoe not found\n";