На Perl, как найти дату предыдущего понедельника для данной даты?

Я ищу Perl сценарий, который может дать мне последний понедельник на любую указанную дату.

например, для даты 2011-06-11, сценарий должен вернуть 2011-06-06