$|++; # unbuffer STDOUT my @chars = qw(| \ - /); my $lastChar = 0; sub stick { my $msg = shift; $lastChar = ++$lastChar % 4; print "\r$msg", $chars[ $lastChar ]; } for (1..10000) { stick("Testing: "); select(undef, undef, undef, 0.1); }