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;
}