use Time::Piece;    
my $t = localtime;
print "Time is $t\n";
print "Year is ", $t->year, "\n";
print $t->strftime("%a, %d %b %Y");