Existe alguma maneira de limpar o buffer STDIN no Perl? Uma parte do meu programa tem saída longa (tempo suficiente para alguém inserir alguns caracteres) e, depois dessa saída, solicito entrada, mas se os caracteres foram inseridos durante a saída, eles são "aderidos" ao que for inserido na entrada parte. Aqui está um exemplo do meu problema:

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

A saída incluiria qualquer caractere inserido durante a saída daquele loop for. Como eu poderia desativar o STDIN ou liberar o buffer STDIN (ou qualquer outra maneira de não permitir que caracteres extras fossem inseridos no STDIN antes de chamá-lo