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@,};
[download]