Inspired by hello world,
I've produced a spinning world (which I hope is spinning
in the right direction;-).
For best results, ensure you have the Time::HiRes module
installed (standard with Perl 5.8); lacking that, you
can still run the obfu by commenting out the first line
(though it won't look as nice;-).
use Time::HiRes
'sleep';$:=q^=/Z97Z5-#'(
$Z21$$,$Z/63 $Z-:3$ Z+=4$Z*<7
$Z($#:8$Z'$$7<$Z &$% 6>$Z%$'5?
$Z$$)2B$Z$$*1B$Z#$,)' "C$Z#$-'K
$Z"$0%%#"%A$Z"$1)(%<$Z!$4 )F$Z!$9$F
$Z!$;#%(:$Z!$=.8$Z!$?/5$Z!$? 13$Z!$>50
$Z!$>8-$Z!$?8,$Z!$@6-$Z"$@4 -$Z"$A2.$
Z#$A1-$Z#$A0.$Z$$A-/$Z$$A,0$Z% $@*1$Z&$?
(2$Z'$>'2$Z($<'2$Z*$:&1$Z+$9 %1$Z-$7$0
$Z/$6##"+$Z2$4#*$Z5$9$Z9$1$Z =/Z^;$~
=q^=/Z9 0%$Z54)$Z23%"+$Z/81$ Z-:3$Z+
<#"2$Z* =$"2$Z(;'#4$Z'>$$ 5$Z&?<$
Z%@=$Z$ A>$Z$&%7?$Z#(%'# *"#A$Z#
'&&%(E$ Z"''%('E $ Z"%)$*'
D$Z!%+# +&'"," 2$Z!&*#
)"$"*"4 ")$Z !& +"," +"=$Z!%
5"$"%") "9$Z!%6" $"## '";$Z!$
7"&$*"8 $Z!$8#%# ##&$6$Z
!$K&2$Z !$; """0&0$
Z!$a$Z" $G #$"3$Z" $C'##3$
Z#$@)"$ 2$Z#$?.("*$Z$ $;1%",$
Z$$:21$ Z%$920$Z&$810$ Z'$7&$(
0$Z($?& 0$Z*$?#'#'$Z+$D# ($Z-$@#
($Z/$E$ Z2$?$Z5$9$Z9$1$Z=/Z^ ;$^=q^=
/Z9$),Z 5$("#2Z2$*#"6Z/$/:Z-$.? Z+$.%$"
#9Z*$.$ '""""8Z(%/#-9Z'&.),6Z&& .+$#&7Z
%&.MZ$& -PZ$%-D$+Z#$/D&&"$Z#$ .E'%"$Z
"$/D)$# $Z"$.C,##$Z!$/A*"%" $$Z!$0D
&"%"$$Z !$1B("($Z!$3&$71$ Z!$<61$
Z!$<52$ Z!%;43$Z!(924$Z! *814$Z!
*804%Z" (90/"$%Z"(904$Z #'90%".
$Z#(70$ #/$Z$'8.$$)" %$Z$'9,
%#)"&$Z %&:*&"/$Z&% :)5$Z'$
;'5$Z($ :$7$Z*$K" $$Z+$J"
#$Z-$H% Z/$E$Z2 $?$Z5$9
$Z9$1$Z=/ Z^;;;; @,=map{
s;\s;;g ;join "",map{
$;='*'; join "",map((
($;^=$/)x (-33 +ord)),
/./g), $/} split+Z}
$~,$^,$ : ; for(-10..
-1,-1, -1 ){$.=-$_/
9;system ($^O=~Win
?CLS:"clear"),print,
sleep$.for@,};