Whirley gig progress indicator for perl

whirley.pl

#!/usr/bin/perl

# Based on this: https://www.perlmonks.org/?node_id=113661

use strict;

use Time::HiRes qw( sleep );

#$|=1;

our $WHIRLEY_COUNT=-1;

#our @WHIRLEY=('-', '\\', '|', '/');
#our @WHIRLEY=('⠋', '⠙', '⠹', '⠸', '⠼', '⠴', '⠦', '⠧', '⠇', '⠏');
our @WHIRLEY=('▁', '▂', '▃', '▄', '▅', '▆', '▇', '█', '▇', '▆', '▅', '▄', '▃');

sub whirley {
  our $WHIRLEY_COUNT;
  our $WHIRLEY;
  $WHIRLEY_COUNT = ($WHIRLEY_COUNT + 1) % @WHIRLEY;
  return @WHIRLEY[$WHIRLEY_COUNT];
}

print STDERR "please wait :    ";
while (1) {
    sleep 0.3;
    print STDERR "\b\b\b " . whirley() . " ";
}