#!/usr/bin/perl -l

use strict;
use Net::SFTP;

my ( $host, $user, $pass ) = ( ... );

my $sftp = Net::SFTP->new( $host, 
    user => $user, password => $pass, 
    ssh_args => [ debug => 1 ] );