ssh public key

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Net::SSH::Perl;
use Data::Dumper;

my ( $host, $user ) = ( '192.168.1.1', 'my_id' );
my $cmd = 'ls';
my @KEYFILE = ('/home/my_id/.ssh/id_rsa');

my $ssh = Net::SSH::Perl->new($host, debug => 1, identity_files => \@KEYFILE );
$ssh->login( $user );
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);

print "$stdout $stderr $exit\n";