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";

##</code><code>##

The getpwuid function is unimplemented at C:/strawberry/perl/site/lib/Net/SSH/Perl/SSH2.pm line 39, <GEN0> line 1.