use Date::Calc;

my ( $year, $month, $day ) = Today();

##</code><code>##

use Date::Manip;

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