Select Code to Download

my $result;
if (!eval {
...
}) {
   die("Unable to ...: $@\n");
}

local $SIG{'__DIE__'} = sub {
   die($@) if $^S;
   ...
};