Determing Week Ranges between given date range?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'm trying to calculate weekly date ranges (start and end) from a given date range (e.g. April 1, 2010 - October 10, 2010)

I'm hoping there is a module for this.

This is what I would expect to see:

weeks between April 1, 2010 - October 10, 2010 are:
Week 1: April 1, 2010 - April 4, 2010
Week 2: April 5, 2010 - April 11, 2010
...
[download]

Is there an easy way to do this?
Thanks

Back to Seekers of Perl Wisdom