¿Hay alguna forma de borrar el búfer STDIN en Perl? Una parte de mi programa tiene una salida larga (tiempo suficiente para que alguien ingrese algunos caracteres) y después de esa salida solicito entrada, pero si los caracteres se ingresaron durante la salida, se "agregan" a lo que se ingresa en la entrada parte. Aquí hay un ejemplo de mi problema:

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

La salida incluiría cualquier carácter ingresado durante la salida desde ese bucle. ¿Cómo podría deshabilitar STDIN o vaciar el búfer STDIN (o cualquier otra forma para no permitir que se inserten caracteres adicionales en STDIN antes de llamarlo)?