use strict;
use warnings;
use Time::HiRes qw(sleep);
my @sparkle = qw(| / - \ );
$| = 1;

system "cls";
print "This is a sparkle:\n";
print "\r", $sparkle[$_%4] and sleep 0.5
    for (0..99);
[download]