Date::Calc is your friend! All hail Date::Calc.

Here is a quick example I just tried (Monday of this week):

perl -e 'use Date::Calc qw(:all);print join(",",Monday_of_Week(Week_of
+_Year(Today))) . "\n"'
[download]

-pete
"Pain heals. Chicks dig scars. Glory lasts forever."