use Net::SFTP;
my $host = "cib-xcluster.biotec.usu.edu";
my %args = (
    user     => 'user',
    password => 'pass',
    debug    => 0,
    protocol => '1,2',
    port     => '22',
);
print "connecting to $host . . .\n";
my $sftp = Net::SFTP->new($host, %args);
print "Finished\n";