Spinning rod animation/Text: Difference between revisions

=={{header|Perl}}==

The statement <code>$| =1</code> is required in order to disable output buffering.

<lang perl>$|= 1;

while () {

for (qw[ | / - \ ]) {

select undef, undef, undef, 0.25;

printf "\r ($_)";

}

}</lang>