Perl Expect: для входа по ssh, если неверный пароль не удается, как попробовать другой пароль?

Question

При использовании Expect в Perl для автоматизации входа в систему по ssh, если первый пароль не удался, как мы можем попробовать другой пароль?

Нетрудно найти чистые примеры Expect для этого, но не может найти один для Expect.на Perl.

use Expect;

my $bad_pwd = 'pw123';
my $good_pwd = 'pw1234';

my $exp = Expect->spawn("ssh user@example.com") or die;
$exp->expect($timeout,  [ "password: ", sub {$exp->send("$bad_pwd\n"); }]);

Заранее спасибо!