ssh_option => 'o NumberOfPasswordPrompts=1'
[download]

my $ssh;
foreach (1..3) {
    $ssh = eval {
        my $try = Net::SSH::Expect->new(
            host     => $host,
            password => $password,
            user     => $user,
            raw_pty => 1,
            timeout => 3,
            binary  => $ssh_exec,
            ssh_option => 'o NumberOfPasswordPrompts=1'
            );
        $try->exec("stty raw -echo");
        $try;
    };
    last if $ssh;
    sleep 1;
}
[download]

didnt work :-( It now fails on the login line with the following exception: FIX: .ssh/known_hosts SSHProcessError The ssh process was terminated. at test.pl line 775 However, the following code will catch the exception:

my $ssh;
   foreach (1..3) {
    eval {
        $ssh = Net::SSH::Expect->new(
            host     => $host,
            password => $password,
            user     => $user,
            raw_pty => 1,
            timeout => 3,
                        binary  => $ssh_exec,
        );
    };
    last if $ssh;
    sleep 1;
}
die "Could not connect to remote host '$host'\n" if not $ssh;
my $login_output = $ssh->login;
$ssh->exec("stty raw -echo"); 
my $resp_uname;
eval {
      $resp_uname = $ssh->exec('uname');
};
if ($@) {
     if ($@ =~ m{SSHConnectionAborted}) {
         die "Invalid username and/or password for OS user $user on th
+e remote server!";
 }else {
      die "Could not connect to remote host '$host' : $@\n";
       }
}
[download]

According to the Net::SSH::Expect manpage, it should contain some form of response from the server:

# 2) logon to the SSH server using those credentials.
        # test the login output to make sure we had success
        my $login_output = $ssh->login();
        if ($login_output !~ /Welcome/) {
            die "Login has failed. Login output was $login_output";
        }
[download]

The $login_output variable only contains the prompt for password: Password: I think its contents is installation dependent.