$ perl5220 -e'{open my $fh, ">/dev/full"; print $fh "abc"}'
Warning: unable to close filehandle $fh properly: No space left on device at -e line 1.
$