Date::Manip can do that easily. If you want all mondays from today to the end of the year, and $y contains the current year:

@dates = ParseRecur('0:0:1*1:0:0:0','','today',"$y-12-31");