use strict;
use DateTime;
my $start = DateTime->new( month => 11, day => 1, year => 2008 );
my $end = $start->clone->add( days => 6 );
print "Start: ", $start->ymd, "\tend: ", $end->ymd, "\n";
__END__
Start: 2008-11-01 end: 2008-11-07