Select Code to Download

$ perl -e'eval{open my $fh, ">", "/dev/full"; print $fh "Foo\n";}; pri
+nt $!'
No space left on device

use Fatal qw/open close/;
{
    $! = undef;
...
    print $fh 'short text' or die $!;
}
die $! if $!;