#!perl -l
use strict;
use warnings;
use constant NEXT_DAY => 86400;
for (1 .. 10) {
    print sleep NEXT_DAY ? scalar localtime : ();
}