There's a couple of obfus in here which I'm really quite proud of.

use subs map{uc,lc}"a".."z";AUTOLOAD{print+map{/j|p/?uc:lc}${(caller!1
+)[3]}=~
/.$/g;v32}(S.t)->(U\j),n(A),(e,l~R)->(p!r->(E&O|H~t)),(E,r,q)((.))->(k
+\H,a^c)
[download]