use strict;
use warnings;
use Net::SSH::Expect;

my $ssh = Net::SSH::Expect->new(
    host     => $ip,
    password => $pass,
    user     => 'root',
    raw_pty  => 1
);

my $login_output = $ssh->login();
sleep 10;

# run arbitrary commands, like
$ssh->exec("ls -l /");

##</code><code>##

SSHAuthenticationError Login timed out. The input stream currently has the contents bellow: Warning: Permanently added '<IP_ADDRESS>' (RSA) to the list of known hosts.
 at /usr/local/share/perl/5.10.1/Expect.pm line 828.

##</code><code>##

# Bypass SSH key checking
Host *
   StrictHostKeyChecking no
   UserKnownHostsFile=/dev/null