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

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

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