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