# !cqperl (that's all I have here at work)
use strict;
use warnings;
my $count = 0;
my @sparkle = qw(\ | / - |);
while ($count < 100 ){
  my $thingy=shift(@sparkle);
  system"cls";
  print "This is a sparkle: $thingy\n";
  sleep .99;
  push(@sparkle, $thingy);
  $count++;
}