my $ssh = Net::SSH::Perl->new($host, debug=>1, protocol=>'2', identity_files=>["/Users/jaldama /.ssh/id_dsa.pub"],
);
$ssh->login($user);
.
.
.