#!/usr/bin/perl

use Net::SSH::Perl;
use Term::ReadKey;

$ip=$ARGV[0];

$user = "username";
$pass = "password";

print "connecting to $ip\n";
my $ssh = Net::SSH::Perl->new("$ip",
                                debug=>"1");
$ssh->login ($user, $pass);

ReadMode('raw');
$ssh->shell;
ReadMode('restore');