perl B-Hooks-EndOfScope