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

##</code><code>##

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