$ perl -e'eval{open my $fh, ">", "/dev/full"; print $fh "Foo\n";}; print $!'
No space left on device