#!/usr/bin/perl

use strict;
use warnings;
use CPAN;
use Net::SFTP;

CPAN::Shell->install(

"Math::BigInt",
"Math::BigInt::FastCalc",
"Math::BigInt::GMP",
"Math::BigInt::Pari",
"Math::BigRat",
"bignum",
"Crypt::DSA",
"Crypt::DH");

my %args = ( user => 'user',
             password => 'password',
             debug => '1');

my $sftp = Net::SFTP->new('localhost', %args);
print "Connected.....\n" if $sftp;