なるほど。確かに>>7は誤りだった。

#!perl
use POSIX qw(strftime);
my $t = strftime "%Y%m%d", localtime();

use Time::Local;
my($y, $m, $d) = unpack 'A4A2A2', $t;
my $t2 = strftime "%Y%m%d", localtime timelocal(0, 0, 0, $d + 7, $m - 1, $y);

print "$t2\n";
__END__

満足したらさっさと消えてくれ。