in reply to BEGIN block
See "BEGIN, UNITCHECK, CHECK, INIT and END" section in perlmod.
Give a man a fish: <%-{-{-{-<