my @id_files = qw(/home/me/.ssh/id_rsa.pub);
my $ssh = Net::SSH::Perl->new( 'host', debug => 1, protocol => 2, identity_files => \@id_files );
$ssh->login()
my ( $o, $e, $ex ) = $ssh->cmd( 'uptime' );