$identity = "id_dsa";
$host = "target";
$usr = "user";

my %args;
$args{identity_files} = $identity;

$ssh = Net::SSH::Perl->new($host, %args);
$ssh->login($usr);