Cannot make a non-overridable builtin fatal at /usr/share/perl/5.8/Fatal.pm line 108.
BEGIN failed--compilation aborted at f.pl line 1.

##</code><code>##

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