use Net::SSH::Perl;

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