#! usr/bin/perl

BEGIN
{
  unshift(@INC,"/path/where/installed/");
}
use strict;
use warnings;
use Net::SFTP;
use Net::SSH::Perl::Buffer;

my $host = "*************";
my $userid = "****";
my $pwd = "******";

my $f  = Net::SFTP->new($host) or die "couldn't connect";
$f->login($userid, $pwd) or die "couldn't login"; 
print "successfully logged in\n";