Refactored to use Date::WeekNumber