如何在使用perl脚本用户需要2个密码时自动进行ssh登录

use Expect;

# SSH登录信息
my $host = "your_host";
my $username = "your_username";
my $password1 = "your_password1";
my $password2 = "your_password2";

# 创建Expect对象
my $exp = Expect->new;

# 启动SSH连接
$exp->spawn("ssh $username\@$host") or die "Cannot spawn ssh: $!\n";
$exp->expect(10, [
    qr/password:/i,
    sub {
        my $self = shift;
        $self->send("$password1\n");
        exp_continue;
    }
], [
    qr/Password:/i,
    sub {
        my $self = shift;
        $self->send("$password2\n");
        exp_continue;
    }
]);

# 登录成功后执行其他操作
if ($exp->expect(undef, '$')) {
    $exp->send("ls -l\n");
    $exp->expect(undef, '$');
    my $output = $exp->before();
    print $output;
}

# 断开SSH连接
$exp->send("exit\n");
$exp->soft_close();