perl -MDateTime -le'$min=DateTime->now;$max=DateTime->new(year=>2008,month=>12,day=>31);while($min->dow != 1){$min->add(days=>1)};while($min<$max){print $min->ymd; $min->add(weeks=>1)}'