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