use Time::Piece;

my $date = localtime->cdate;