A Date::Calc solution:

perl -MDate::Calc=Today,Week_of_Year,Monday_of_Week -e 'printf "%04d%0
+2d%02d", Monday_of_Week(Week_of_Year(Today))'
[download]