perl -e 'use Date::Manip; $dt = ParseDate("now"); while($dt lt "20081231") { $dt = Date_GetNext($dt,"Mon", 0); print UnixDate( $dt, "%Y-%m-%d"), "\n"; }'