perl hook lexwrap