in reply to How do i select the past date and highlight the current date?my code is

Have you had a look at Date::Calc::Delta_Days?

If the delta between today (localtime (*)) and your date is negative, it is a day in the past; if it is zero, it is today. Then you can highlight/select the respective dates... .

HTH, Rata

(*): use $day = (localtime)[3]; $mon = (localtime)[4]+1; $year =(localtime)[5]+1900