#!/usr/bin/perl

use 5.040.3;
no warnings;
$|++;

my @circle = ("\x{25CB}", "\x{2609}", "\x{25C9}", "\x{25CF}");

my $c = 0;
while (1){
    $c++;
    print "\r ", $circle[$c % 4], "  ";
}

exit 2;