my $agent = Net::SSH::Perl::Agent->new(2);
#                                      ~