I tried to make a sample, which test everything I need from the module, but sadly I get an error, which I can't explain:

failed connecting agent (-42 LIBSSH2_ERROR_AGENT_PROTOCOL) at .\sshtest.pl line 7.

I think it should work, because the agent works just fine in CMD.

I would appreciate any help!

Crossposted to StackOverflow.

It's considered polite to inform about crossposting, so that people not attending both sites don't waste their efforts hacking a problem already solved at the other end of the internets.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Oh, sorry. I didn't know that. I was never in this situation before, since my problems were easily solvable by just searching it on google.

Can you post your example code which fails for you, so we can try to replicate your situation?

Thank you for helping. Sure:

#!/usr/bin/perl -w
use Net::SSH2;
 
my $ssh2 = Net::SSH2->new();
$ssh2->connect('158.226.63.99')
    or $ssh2->die_with_error;
$ssh2->auth_agent('z004kapc')
    or $ssh2->die_with_error;
my $chan = $ssh2->channel()
  or $ssh2->die_with_error;
$chan->exec('pwd')
  or $ssh2->die_with_error;
print while <$chan>;
[download]