VinsWorldcom@C:\Users\VinsWorldcom> perldoc Net::SSH2
[...]
error
  Returns the last error code; returns false if no error. In list context, returns (code, error name, error string).
[...]

##</code><code>##

use Net::SSH2;
[...]
my $ssh2 = Net::SSH2->new();
[...]
my ($code, $name, $string) = $ssh2->error;
print "Error ($code): $name - $string\n";