use strict;
    use warnings;
    
    use Net::SFTP;
    
    my $server   = 'downloads-server';
    my $user     = 'user';
    my $port     = "10022";
    my $password = '';
    
    my %args = (
         user => "$user",
         password => '',
         port => "$port",
         ssh_args => {
             user => "$user",
             password => '',
             identity_files => [ 'path/sftp_download'],
             port => "$port",
             protocol=>'2,1',
             debug => 1,
         }
    );
    
    my $sftp=Net::SFTP->new($server, %args) or die "could not open connection to $server\n";