use Date::Calc qw/Add_Delta_Days/;
my @start = ( $year, $month, $day );
my @end = Add_Delta_Days( @start, 14 );