Select Code to Download

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

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