use Term::ANSIColor;
$alt = 'Alternative Party';
$x = 0;
@cs = qw(black red green yellow blue magenta cyan white);
while (1) {
       my $c = $cs[rand @cs];
       print color($c) . " " x (sin($x) * 30 + 30) . $alt;
       $x += 0.0001;
       $alt .= '!' if rand() < 0.0003;
}