translate https://gist.github.com/ziozzang/da78d8755d185f2ad0678713551580c9 into perl.

spin.pl

#!/usr/bin/perl -w

use strict;
use warnings;
use utf8;

binmode STDOUT, ":utf8";
$|=1;

my @spin = split //, "⠋⠙⠹⠸⠼⠴⠦⠧⠇⠏";
my $i = 0;
while(1) {
    print "$spin[$i++]\r";
    $i %= $#spin;
    sleep 1;
}