use strict;

use Win32;
use Win32::Console::ANSI;
use Term::ANSIColor;
my $data = {
                    1 => 'bold blue',
                    2 => 'bold blink yellow',
                    3 => 'blink red',
                    4 => 'blink white',
                    5 => 'blink green',
                    6 => 'blink cyan',
                    7 => 'rapid blink magenta',
                    8 => 'blink grey',
                 };
print "\n";
for (1..100)
{
  print colored ("*",$data->{(rand(100)%6)+1});
  print "\r";
  sleep(1);
}