Select Code to Download

use Date::Parse; 
my $day = 24*60*60;
my $x = 3; # set this.
my $xdays = $x * $day;  
print scalar localtime(str2time("20121231") + $xdays);

use Date::Parse;
my $date = "20120516";
...
$t[1] += 1;     # localtime returns month in range 0..11.

printf "%04d%02d%02d\n", @t;