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

# create an SSH connection object with user,password auth
my $ssh_conn = Net::SSH::Expect->new(
    host     => '192.168.0.4',  # server ip
    user     => 'john',         # user
    password => 'password123',  # password
    raw_pty  => 1
);

# use the SSH connection object to attempt a logon to our
# SSH server using the local SSH client
my $login_session = $ssh_conn->login();
die "Login attempt failed. Output: $login_session\n" if $login_session !~ /Last login/;

# arrival here signifies a successful login
print "You are now logged in!\n";

# close the SSH connection
$ssh_conn->close();
__END__