#! usr/bin/perl

BEGIN {
unshift (@INC, "/home/eankuls/.cpan/build/Net-SSH-Perl-1.37-AUG9Mn/blib/lib/Net/SSH/Perl");
}

use strict;
use warnings;
use Net::SFTP;
use Net::SSH::Perl::Buffer;


my $host = "rinacac-test.egi.ericsson.com";
my $userid = "root";
my $pwd = "red32hat";

my $f  = Net::SFTP->new($host) or die "couldn't connect";
$f->login($userid, $pwd) or die "couldn't login";
print "successfully logged in\n";


eankuls@L9AHR43:~$ ls -ltr /home/eankuls/.cpan/build/Net-SSH-Perl-1.37-AUG9Mn/blib/lib/Net/SSH/Perl/Buffer.pm
-r--r--r-- 1 eankuls egi 9725 Aug 10  2013 /home/eankuls/.cpan/build/Net-SSH-Perl-1.37-AUG9Mn/blib/lib/Net/SSH/Perl/Buffer.pm