Select Code to Download

use English;
...
my $evalok = 0;
...
    print "Something bad happened: ", $EVAL_ERROR, "\n";
    work_around_the_problem_or_give_up();
}