#!/usr/bin/perl

use strict;
use warnings;
use Net::SSH::Perl;

my $host = 'localhost';
my $user = 'user';
my @keyfile = ("/home/User/.ssh/id_rsa");

my $ssh = Net::SSH::Perl->new(
               $host,
               debug => 1,
               identity_files => \@keyfile
);