Check out PPI, it's apparently a framework for parsing perl (eek! i haven't reviewed it yet).

I know people always say, don't parse perl, but in this case, it wouldn't be so bad. Since a BEGIN block can only look like sub BEGIN {} or BEGIN{}, i suggest you programatically change the BEGIN block to something like IwannaBEGINevil. Off the top of my head something like s/\bBEGIN\b/IwannaBEGINevil/ will do (no real thought put into the regex).

Then you can audit that sub like you would any other user defined sub (if you can do that).

Oy!

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! ** The Third rule of perl club is a statement of fact: pod is sexy.