Как сделать паузу в реальном времени в 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);
}

Ответы на вопрос(2)

Ваш ответ на вопрос