#! /usr/bin/env perl6

loop
{
  say DateTime.now.hh-mm-ss;
  sleep 1;
}