use Date::Simple ('today');

my $today = today();
my $year  = $today->year;
my $month = $today->month;
my $day   = $today->day;