Help for this page

Select Code to Download

Select or download this

use DateTime ();
use DateTime::Format::Strptime ();
...
    ->truncate(to=>'day')
    ->compare( DateTime->today );
# compare returns 0 if they're equal