The Net:SSH:Perl:Agent module doesn't seem to work for me. I get the following error, even with the included sexample code.

This is the code I used:

#!/usr/bin/perl -w
use Net::SSH::Perl;
use Net::SSH::Perl::Agent;
my $agent = Net::SSH::Perl::Agent->new(1);
my $iter = $agent->identity_iterator;
while (my($key, $comment) = $iter->()) {
    print $key;
}
[download]

I think this means, that $agent is not defined, so Net::SSH::Perl::Agent->new didn't work. My ssh agent works fine in my shell directly with the ssh command tho.

Please Let me know what I might be doing wrong.

Thanks, Ninto!

I don't get any error, but the script you posted doesn't output anything unless I change the version of the agent to 2.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

I still get the same error, even if I change it.

Could you please elaborate furhter, what you did to make it work?