Hi Chris.

There are many ways to do it. This is another one:

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

update: Re: module installation -- error: Can't locate Date/Tie.pm

Windows:

ppm 
install Date::Tie
[download]

Unix:

perl -MCPAN -e shell 
install Date::Tie
[download]