Something funny:

*$=\%!,$*=$=,*==*#,$==join$",map#s s$*\*(q{%!})+6
s$.$$&&$_,(%$)[$*+6+2+6,$*/2+6,$**2-6-2-6-2,$**2-6]
;print+cos
[download]

Update: It seems it only works with perl 5.8 in a linux box, sorry.

$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print