#!/usr/bin/perl -w


use strict;
use Net::SSH::Perl;
use Net::SSH::Perl::Auth;

my @ids = ("/home/haim/.ssh/identity");

my %params = (
    protocol => 2,
    interactive => 1,
    identity_files => \@ids,
);
    
my $login = Net::SSH::Perl->new("coltrane", %params);


my $auth = Net::SSH::Perl::Auth->new('PublicKey', $login);
$auth->authenticate;


$login->login("haim");

$login->shell;