Select Code to Download

%DIRECTIVES = (
    BindAddress             => [ \&_set_str, 'bind_address' ],
    Host                    => [ \&_host ],
...
    User                    => [ \&_set_str, 'user' ],
    UserKnownHostsFile      => [ \&_set_str, 'user_known_hosts' ],
);

sub _create_socket {
    my $ssh = shift;
    my $sock = gensym;
...

    $sock;
}

use Net::SSH::Perl;

...
                                "StrictHostKeyChecking no"],
                debug => 'true'
        );