But then you have to wait a day. It can be optimized:

    sub next_day {
        sleep  24 * 60 * 60;
        my $date = localtime;
        sleep -24 * 60 * 60;
        return $date;
    }
[download]

Abigail