Help for this page
perl -wE 'open my $F, ">", "/dev/full" or die "open:$!"; for (1..10000) { ... }; close $F or die "close:$!"; '
print:No space left on device at -e line 3.