Why have warnings on if it's not warnings clean?

Also, why not print the whole thing instead of the initials? You can probably do way better than this, but I'm just making the suggestion.

#!/usr/bin/perl                            -- unless don't
eval{     require                        Win32::Console::ANSI;
};sub      ::{printf                  @_ } sub            sub{
rand          39/999}               sub O123                 {::
""            ."\e[%d"            .";%dH%s"                  ,@_
;};               sub l234      {O123 $|=                    1
,1,                 "\e[J"}   while(1)                      {
$c                    or do {::"\e[1"                    ."".
 ""                    .";%dm", 30+                     rand
  7 ;                  l234;$u=&sub                  ;$v =
   &sub                ;$ c= 3999                 ;$b=qw
    /19 9            1/[int rand 3             ]};O123
     11*sin(      $v* $c)+    13,39*cos   ($u*$c)+41,
       qw+J u s t A n             o t h e r P e 
         r l H a c                  k e r+[$c
           %21];                     ($a++%
             $b)           or         $c--;}
[download]