Hook::LexWrap allows you to install a pre- or post-wrapper (or both) around an existing subroutine.