...
catch {
    if(UNIVERSAL::isa($_,'MyException')) {
        warn $e->error, "\n";
        ...                                                     
    }
}