#!/usr/bin/perl -w

use strict;

use Net::SFTP::Foreign;

my $sftp_obj = Net::SFTP::Foreign->new(
    '10.22.64.27',
    more => [
        '-oIdentityFile=/opt/tools/keys/ssh/sftp-test',
        '-oPreferredAuthentications=password,keyboard-interactive,publickey',
        '-vvv',
    ],
    user       => 'sftp-test',
    timeout    => 120,
    port       => '10023',
    password   => 'password',
);

print '[' . $sftp_obj->error . "]\n";