in reply to The day of today

Use Data::Calc Module

In Section Seekers of Perl Wisdom