Re: making a spinner

[phubuh]

"\b" is for backspace, so you could do this:

$|++;
for (my $x = 0; $x <= 25; ++$x){
  foreach (("-", "\\", "|", "/")){
    print $_; sleep 1; print "\b";
  }
}