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);
}