Select Code to Download

my $keyfile='~/.ssh/known_hosts';
Net::SSH::Perl->new( $host, [identity_files => [$keyfile]);

$code->($amgr, $packet, @args);