my @baton = qw(| \ - /);

##</code><code>##

select undef, undef, undef, .15;  # or use Time::HiRes

##</code><code>##

push @baton, shift @baton;
print "$baton[0]\b";