# this still does not die
perl -e '$|++;open FH, ">", "/dev/full" or die $!; for (1..819) {print FH "line\n" or die $!;} '


#but this dies!
 perl -e '$|++;open FH, ">", "/dev/full" or die $!; for (1..1000) {print FH "line\n" or die $!;} '
No space left on device at -e line 1.