Select Code to Download

use Date::Calc qw/Add_Delta_Days/;

...

$newdate = sprintf("%4d%02d%02d", $year, $month, $day);
print "$newdate\n";