print POSIX::strftime('%Y%m%d', localtime),"\n";
my @parts = localtime();
$parts[3] -= 14;
print POSIX::strftime('%Y%m%d', @parts),"\n";