#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

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

my $camel = "\N{U+1F42A}";
my $poop  = "\N{U+1F4A9}";

print $camel;
for (1..60) {
    sleep 1;
    print " $poop";
}
print "\n";