#!/usr/bin/perl
use strict;
use warnings;

my $reps = 100;
my $delay = 100; # in milliseconds
$delay/=1000;

my @star = qw(| / - \\);
for(1..$reps) {
  for(@star) {
    print "\r$_";
    select(undef, undef, undef, $delay);
  }
}