Select Code to Download

my $i = 0;
my @spinner = ("|\r", "/\r", "-\r", "\\\r");
...
  $i = $i++ % @spinner;
  # do stuff
}

sub spinner {
  my $i; my @chars = defined @_ ? @_ : ("|\r", "/\r", "-\r", "\\\r");
...
  print STDERR $spinner->();
  # do stuff
}