Select Code to Download

use Date::Calc;

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

use Date::Manip;

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