package My::Eval::Evil;
eval $code;
if ($@) {
    ....
}
package main; # or whatever package you've been in