#!/usr/bin/perl

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

foreach(1..25) {
  print "Working: " . $spinState[$spinner] . "\n";
  print "    \n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
  sleep(1);

}