## next unless ($date eq $TODAY);