#!/usr/bin/perl

use Modern::Perl;
#removed no strict refs from here after originally posting....
use Net::SSH2;
my ( %login, $login);
my $ssh2 = Net::SSH2->new();
$login = %login;
$login{'user'}='***';
$login{'password'} ='*******';
$ssh2->connect('192.168.0.15') or $ssh2->die_with_error ;
$ssh2->auth_password($login{user}, $login{password}) ;
$ssh2->auth_ok() ;
####
print "Logged in\n" ;
####
my $chan = $ssh2->channel() or ssh2->die_with_error ;
my $cmd = $chan->exec('ls');
my $sftp = $ssh2->sftp();
####
my $fh = $sftp->open('.bashrc') or $sftp->die_with_error;
say $_ while <$fh>;
$ssh2->disconnect();