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