# Ensure the invoking process has a valid ssh-agent running, and is loaded with an appropriate key, or keys

use warnings;
use strict;

use Net::SSH::Perl::Key;
use Net::SSH::Perl::Agent;
my $agent = Net::SSH::Perl::Agent->new(2);

my ($key, $comment) = $agent->first_identity;

use Net::SSH::Perl;

my $ssh_user = 'myuser';
my $ssh_host = 'myhost';

## How to use the above referenced $key in the following ssh connection ?? ##

my %ssh_params = ( debug => '1', options => [ "StrictHostKeyChecking no", "UserKnownHostsFile /dev/null" ] );

my $ssh = Net::SSH::Perl->new( $ssh_host, %ssh_params );

my $result = $ssh->login("$ssh_user");

if ( $result ) {
	print "Logged in as ${ssh_user} on host ${ssh_host}\n";
} else {
	print "Failed to login in as ${ssh_user} on host ${ssh_host}\n";
}