use Hook::LexWrap;

wrap( $_,
      pre  => sub { print "$_ begin\n" },
      post => sub { print "$_ end\n"   },
    ) for @subs_to_wrap;