Select Code to Download

my @sundays = ([]);
my @date = (2005, 1, 1);
...
# Now, $sundays[1] == ( 2005, 1, 2 )
# $sundays[2] == (2005, 1, 9 )
# etc.

my @sunday_date = Monday_of_Week(Week_of_Year( @starting_date ));
$sunday_date[2]--;