# perl -e 'print "$_\n" for 1..10000' | perl -ne '$num = <STDIN>;print "$num:";open FH, ">", "/dev/full" or die $!; for (1..$num) {print FH "line\n" or die $!;};close FH;'

..

:816
:818
:820
No space left on device at -e line 1, <STDIN> line 410.