#!/usr/bin/perl
use warnings;
use strict;
use Net::SSH2;

my $ssh2 = Net::SSH2->new();

$ssh2->connect('$hostname') or die "Unable to connect Host $@ \n";
$ssh2->auth_password('veeru','143') or die "Unable to login $@ \n";

my $chan2 = $ssh2->channel();
$chan2->shell();
print $chan2 "cd /home/john";
print "LINE : $_" while <$chan2>;

print $chan2 "pwd\n";
print "LINE : $_" while <$chan2>;

print $chan2 "ls -lrt \n";
print "LINE : $_" while <$chan2>;