There are a lot of good ways to handle dates.

Example with Date::Calc

use Date::Calc;

my ( $year, $month, $day ) = Today();
[download]

Example with Date::Manip

use Date::Manip;

print UnixDate("today","It is %b %e, %Y");
[download]