In Perl how to find the date of the previous Monday for a given date?

Question

I am looking for a Perl script which can give me the last Monday for any specified date.

e.g. For date 2011-06-11, the script should return 2011-06-06

Answer 1

Zeller's congruence will give you the day of the week. From there it should be pretty easy.