use Date::Calc ();
# 500 lines of unrelated fun.
my @what_what = Date::Calc::Today_and_Now();