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