BEGIN { my @chars=('-','\\','|','/','-','\\','|','/'); my $step=0; sub baton_start { $step=0 ; goto &baton_step } sub baton_step { print STDERR $chars[$step++],"\b"; $step=0 if $step >=8 } sub baton_end { print STDERR "\b "; } }