#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

use constant WEEK => 60 * 60 * 24 * 7 ;

my @later = localtime( time + ( WEEK * 2 ) ) ;
my $fmt_date = sprintf "%04d-%02d-%02d",
                 $later[5] + 1900,
                 $later[4],
                 $later[3] ;
print $fmt_date, "\n" ;

__END__