Hmm.

I have to admit that while this solution is ok when the spinner is a single char I still prefer the other approach as being more flexible

use Tie::Cycle;
tie my $spinner, 'Tie::Cycle', [map "\b$_",qw(> -> --> ---> ----> --->
+ --> -> >)];
print $spinner while (1);
[download]

Aint animation fun!

:-)

--- demerphq
my friends call me, usually because I'm late....