use Date::Manip;
for my $date (ParseRecur("every monday", "", ParseDate("today"), ParseDate("dec 31"))) {
  print "$date\n"; # or format it using UnixDate($date, $format)
}