#!/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--;}