perl B-Hooks-OP-Check