#!usr/bin/perl

use Time::HiRes;

$|=1; #autoflush

sub spin {
my ($arg) = @_;
$|++;
for (my $x = 0; $x <= $arg; ++$x){
  foreach (("-", "\\", "|", "/")){
    print $_; Time::HiRes::sleep (0.1); print "\b";
  }
} 
#print " \n";
}

my $i = 1;
print "Please wait...";
my $j = 0;
for ($i = 1; $i <= 10000; $i++) {
 $i++;
 $j=&spin($j);
}

print "Done\n";