This is how to create a progress spinner in PERL. Concepts covered include: autoflush var, modulo operator, for loop, carriage return character.
1: local $|=1;
2: my @spinner = (‘|’, ‘/’, ‘-’, ‘\\’);
3: for(my $i=0; $i <= 32; $i++)
4: {
5: print “Voila! “, $spinner[$i % 4];
6: [...]
