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