如何在 Perl 中实时暂停

我对 Perl 还很陌生，这是我在这里发表的第一篇文章，所以请保持温柔。

我在 60 秒的倒计时计时器中使用实时，需要能够每 10 秒停止一次，然后用户必须输入是否要在每个 10 秒的间隔继续倒计时。计时器工作，我只是不知道如何暂停它以便用户输入他们的响应。尽可能基本的答案将非常受欢迎，因为我还不太了解。谢谢你，这是到目前为止我的代码。

my $countdown = 1*60; #60 seconds
$| = 1; #disable output buffering

my $start_time = time;
my $end_time = $start_time + $countdown;


for (;;) {
    my $time = time;
    last if ($time >= $end_time);
    printf("\r%02d:%02d:%02d",
        ($end_time - $time) / (1*60),
        ($end_time - $time) / 60%60,
        ($end_time - $time) % 60,
    );

    sleep(1);
}

Update $end_time得到用户的回复后。

while (1) {
    $countdown--;
    $time = time;
    last if ($time >= $end_time);
    printf("\r%02d:%02d:%02d",
        ($end_time - $time) / (1*60),
        ($end_time - $time) / 60%60,
        ($end_time - $time) % 60,
    );

    sleep(1);
    if ($countdown%10 == 0) {
        print "Continue? ";
        $answer = <>;
        chomp $answer;
        last if $answer ne 'y';
        $end_time = time + $countdown;
    }
}