$ perl -MTime::HiRes -MFcntl -Mstrict -Mwarnings -e '
> STDOUT->autoflush( 1 );
> 
> my $spinner = do {
>    my $idx = 0;
>    my @symbols = ( q{-}, q{\\}, q{|}, q{/} );
>    sub {
>        print $symbols[ $idx ++ ], qq{\b};
>        $idx = 0 if $idx > $#symbols;
>        };
>    };
> 
> for my $loop ( 1 .. 10_000 )
> {
>     $spinner->() unless $loop % 50;
>     Time::HiRes::sleep( 0.01 );
> }
> print qq{\n};'
/
$