use Net::SFTP;

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

   my $sftp = Net::SFTP->new('localhost', %args);

   print "Connected.....\n";
   exit(0);
} 
else 
{
    warn "auth failed.\n";
}