Есть ли способ очистить буфер STDIN в Perl? Часть моей программы имеет длительный вывод (достаточно времени, чтобы кто-то мог ввести несколько символов), и после этого вывода я запрашиваю ввод, но если символы были введены во время вывода, они "привязаны" к тому, что введено на входе часть. Вот пример моей проблемы:
for(my $n = 0; $n < 70000; $n++){
print $n . "\n";
}
chomp(my $input = <STDIN>);
print $input . "\n";
Выход будет включать любые символы, введенные во время вывода из цикла for. Как я могу отключить STDIN или сбросить буфер STDIN (или любой другой способ не допустить добавления дополнительных символов в STDIN до его вызова)?