Have fun with this one :) A few things to note: SPACING MATTERS!!! The spacing on this has to be exact; I recommend downloading the code and then removing the trailing spaces at the end, and the leading space at the top.

Also, a few monks that have tested it for me have told me that that there is an error; all have been running linux. However, other monks under linux have told me it works fine for them. I personally am running Activestate 5.6.1 under Windows 2000. However, there is nothing in the code that should prevent it from being non-cross platform. If you can spot the problem, please inform me so I can update it.

Also, if the snippits it spits out at you are too hard, run it again. They'll change every time ;)

Don't even bother with deparse; it'll make the interpreter puke all over your keyboard.

Finally, don't vote on this comment node right here; I just wanted to make the parent node clean.

Update:
I think the problem that some people were having is that they are running versions of perl under 5.6.1; everyone who has msged me with a problem has been below that. So use this as an excuse to update ;)