$_='%?&%[=&+=?%=[%&+&%[*?]&=&~[;&+&{=?[?&%&[&{[%&^=?=[&%&]=?%~&~[?&+&~
+YiFF!
=[=~| Weyfour WWWWolf (aka. Urpo Lankinen), a lupine technomancer |=?*
+_=}?]
%}&};| ICQ:4291042 | wwwwolf@iki.fi | http://www.iki.fi/wwwwolf/ |&;&=
+~?]';
tr/?~=*;%&[{}]+_^ (),.:@\/\n0-9!|a-zA-Z/0-9acde/d; $_=pack("H*",$_); p
+rint;
[download]

It just prints out a message, so it isn't particularly... creative.