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