Select Code to Download

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

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

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