use Net::SFTP;
my %args = (
	user     => $Username,
	password => $Password,
	debug    => 0,
	protocol => '1,2',
	port     => '22',
);

my $sftp = Net::SFTP->new( $Host, %args )
    or $self->logcroak( "SFTP Object Error: $@" );

printf "<= SFTP Dump => %s\n%s\n", Dumper( \%args ), Dumper( $sftp );
die "Foo!\n";

##</code><code>##

Use of uninitialized value in concatenation (.) or string at C:/Apps/perl/site/lib/Net/SSH/Perl.pm line 107.
Can't map service name 'ssh' to port number at C:/Apps/perl/site/lib/Net/SFTP.pm line 36