# 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 : $@, $/;

##</code><code>##

Can't close(GLOB(0x804b548)): No space left on device at (eval 2) line 3
	main::__ANON__('GLOB(0x804b548)') called at -e line 1
	eval {...} called at -e line 1