my $i = 0;
my @spinner = ("|\r", "/\r", "-\r", "\\\r");
while (<>) {   # or any other looping structure
  print STDERR $spinner[$i];
  $i = $i++ % @spinner;
  # do stuff
}