use Tie::Cycle;

tie my $spinner, 'Tie::Cycle', [map "\b$_",qw(\ | / -)];

print $spinner while (1);