perl -MDate::Calc=Today,Week_of_Year,Monday_of_Week -e 'printf "%04d%02d%02d", Monday_of_Week(Week_of_Year(Today))'