use Net::SFTP;
use Net::SSH::Perl::Auth;

#!/usr/bin/perl 

$ENV{HOME} = "C:\\Perl\\myscripts\\etc";

my $host = 'test.secure01.batch.netgiro.com';
my %args = (
user => 'vistaprint_test',
ssh_args => { identity_files => ["/home/ssh/id_rsa"], 
protocol=>'2,1',
debug=>'true'} );

my $sftp = Net::SFTP->new($host, %args);
print "connected!";