#!/usr/bin/perl

use Date::Manip;
$two_weeks = UnixDate( DateCalc( "today", "+14 days" ), "%y-%m-%d" );
print $two_weeks, "\n";