$ssh = Net::SSH::Perl->new($server, debug => 15, 
options=> [
            "UserKnownHostsFile /usr/local/apps/.ssh/known_hosts"]);