Очистка буфера STDIN в Perl

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

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

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