# this not dies
 perl -e '$|++; open FH, ">", "/dev/full" or die $!; print FH "line\n" or die $!; '

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

# interestingly (?) sysopen die on write, may it knows about /dev/full?  
 perl -e 'sysopen (FH, "/dev/full", O_WRONLY) ; print FH "line\n" or die $!;close FH '
Bad file descriptor at -e line 1.