#!/usr/bin/perl

use 5.040.3;
no warnings;

# faces or phases of the moon
my @faces = ( "\x{1F311}", "\x{1F312}", "\x{1F313}", "\x{1F314}", "\x{1F315}", "\x{1F316}", "\x{1F317}", "\x{1F318}" ); 

while (1) {
    for my $f (@faces){
	print "\r$f ";
    }
    
    select (undef, undef, undef, 0.001);
}
say "";


exit 2;