Select Code to Download

use English qw(-no_match_vars);
eval { die 'A horrible death' };
print "Something died\n" if $EVAL_ERROR;