Execute remote commands using Perl5, Net::OpenSSH and a private key

sshexec.pl

#!/usr/bin/perl

use Net::OpenSSH;
 
my $ssh = Net::OpenSSH->new('root@server.domain.name', key_path => '/path/to/private_key');
$ssh->error and die "Couldn't establish SSH connection: ".$ssh->error;

my ($stdin, $stdout, $stderr, $pid) = $ssh->open3("ls -l");

my @output = <$stdout>;
print @output;