# use Fatal qw/open print close/;
use Fatal qw/open close/;
my $result = eval {
    open my $fh, '>', '/dev/full';
    print $fh "Foo\n" or die $!;
};
print $result ? $result : $@, $/;