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

##</code><code>##

use Fatal qw/open close/;
{
    $! = undef;
    open my $fh, '>', '/dev/full';
    print $fh 'short text' or die $!;
}
die $! if $!;