in reply to The date last monday
$ perl -MPOSIX=strftime -le 'print strftime "%Y%m%d", localtime(time - + ((1 - (localtime)[6]) * -86400))' 20061002 [download]
"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg