You need the magical constant '86400':

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