use strict;
use warnings;

my $intervals = 20;
my $interval = 1;   # Sleep time between twirls
my $tcount = 0;     # For each tcount the line twirls one increment

while ($intervals-- > 0) {
    $tcount++;
    print "$tcount\n";
    if ($tcount == 1) {
            printf '-';
            sleep $interval;
        }
    elsif ($tcount == 2) {
            print "\\";
            sleep $interval;
        }
    elsif ($tcount == 3) {
            print "|";
            sleep $interval;
        }
    elsif ($tcount == 4) {
            print "/";
            sleep $interval;
        }
        else {
            $tcount = 0;
        }
}

##</code><code>##

1
-2
\3
|4

/5
1
-2
\3
|4
/5
1
-2
\3
|4
/5
1
-2
\3
|4
/5