use DateTime;

my $dt = DateTime->today;

print $dt->date;