Промывка буфера Perl STDIN

Есть ли способ очистить буфер STDIN в Perl? Часть моей программы имеет длительный вывод (достаточно времени, чтобы кто-то мог ввести несколько символов), и после этого вывода я запрашиваю ввод, но если символы были введены во время вывода, они «привязываются» к тому, что вводится на входе часть. Вот пример моей проблемы:

for(my $n = 0; $n < 70000; $n++){
   print $n . "\n";
}
chomp(my $input = <STDIN>);
print $input . "\n";

Вывод будет включать любые символы, введенные во время вывода из цикла for. Как можно отключить STDIN или очистить буфер STDIN (или каким-либо другим способом не допустить вставки дополнительных символов в STDIN перед его вызовом)?

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

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