#!/usr/bin/perl -wT
use strict;

$| = 1; # unbuffer output

my $spinner;
my @spinState = ("-", "\\", "|", "/");

print "Working: ";
foreach(1..25) {
  print "$spinState[$_%@spinState]";
  sleep 1;
  print "\b";  # backspace
}