use strict; use warnings; use Time::localtime; printf "Year is %d\n", localtime->year() + 1900; printf "Day is %d\n", localtime->mday() ;
http://cpansearch.perl.org/src/JESSE/perl-5.12.1/lib/Time/localtime.pm