#!/usr/bin/perl

use strict;
use warnings;
use Net::SFTP::Recursive;
use Data::Dumper;

my $host = '127.0.0.1';

my %cfg = (
    user     => 'user',
    password => 'password',
    debug    => 1,
);

my $sftp = Net::SFTP::Recursive->new($host, %cfg);