Select Code to Download

sub new {
    my $class = shift;
...
    my $ssh = Net::SSH::Perl->new($sftp->{host}, protocol => 2,
        debug => $sftp->{debug}, @{ $param{ssh_args} });
...

$sftp = Net::SFTP::->new($host,
                         user => $username,
...
                            ]
                         ]
                        );