{
    use lethal qw[ ... ], sub {
        if( $^exception eq 'something' ) {
            ## deal with it
            ...
            return;
        }
        else {
            die $^exception; ## re-throw
        }
    };
    ...
    ## protected code here
}