use Time::Piece;
my $t = localtime;
print $t->ymd;