use Tie::Cycle;

tie my $spinner, 'Tie::Cycle', ["\r-","\r\\","\r|","\r//"];
my $spin_every=10;
while (<>) {
  print $spinner unless $. % $spin_every;
  # yada-yada-yada
}