perl -MDate::Calc=:all -e 'printf "%04s%02s%02s", Add_Delta_Days(Monday_of_Week(Week_of_Year(Today())), 5);'