#!/usr/local/bin/perl

use strict;
use warnings;
use Net::SFTP;

my $host = '127.0.0.1';
my %args = ( user     => 'vetri',
             password => 'vetri',
             debug    => '1');
             
my $sftp = Net::SFTP->new( $host, %args );
$sftp->put('/place/to/start/at',
           '/place/to/put/file-to-put);

exit;