use Date::Tie;
tie my %date, 'Date::Tie';
$date{week} += 2;    # today + 2weeks
print "$date{month}/$date{day}\n";