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