perl -e 'use Date::Calc qw(:all);print join(",",Monday_of_Week(Week_of_Year(Today))) . "\n"'