use warnings;
use strict;

use Net::SSH2;

print "Hostame: ";
my $host = <STDIN>;
print "Username: ";
my $user = <STDIN>;
print "Password: ";
my $pass = <STDIN>;

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

$ssh2->connect($host) or die "Unable to connect $host $@ \n";
$ssh2->auth_password($user,$pass) or die "Unable to login $@ 

\n";

  my $chan=$ssh2->channel();
  $chan->shell();
  print $chan "ifconfig\n";
  print "LINE : $_" while <$chan>;
  print $chan "top\n";
  print "LINE : $_" while <$chan>;
  $chan->close;