use English;
...
my $evalok = 0;
eval {
    SOME_RISKY_CODE
    $evalok = 1;
};

if(!$evalok) {
    print "Something bad happened: ", $EVAL_ERROR, "\n";
    work_around_the_problem_or_give_up();
}