#!/usr/bin/perl

use strict;
use warnings;

use Net::SSH::Perl;
my $ip="xxx.xxx.xxx.xxx";
my $user = "xxxxx";
my $pass = "xxxx";

my $ssh = Net::SSH::Perl->new($ip, use_pty => 1);

$ssh->login($user, $pass);