After seing Joukes wxObfu, I thought I'd write one (and I did). Please note the difference in spelling.

use Wx 0.15;
s~\z~qq<\x57\x78\x3a\x3a>
.(join'',map{2^length()?$_
:(split//,Wx::SysErrorMsg 5632>>9)[c^$_-1]}
qw i L 25 34 F 13 62 17 24 E 51 52 33 59 i).
q, ,.(join'',(split//,Wx::SysErrorMsg 9536 >> 6)
[map{d^$_-1}24,17,9,12,59])
._JOKE ~ee;
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.