eval {....; 1} or do {
    given ($@) {
        when ($EXCEPTION1) {...}
        when ($EXCEPTION2) {...}
        default {...}
    }
};