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

my $SFTPSite = '#.#.#.#' ;
my $userid = '****';
my $pword =  '******';

#**  **  **  **  **  **  **  ** 
# Setup to do the SFTP
my $sftp = Net::SFTP->new( $SFTPSite, $userid, $pword ) or 
                 die "Could NOT create SFTP "  ;     #Net::SFTP  constructor
print "Yes\n";