Recurrences (cont)

• Every day

my $recur =
    DateTime::Event::Recurrence->daily;

my $dt = DateTime->today;
while ( $dt = $recur->next($dt) )
{
    last if $dt->month == 8;
    print ' ', $dt->date, "\n";
}

• run the script - every-day