use Time::Piece;

my $t = localtime;
my $todays_date = $t->strftime('%x');