I do not have Date::Calc installed (so I can not verify this), but, looking at the documentation, it would seem that you could use Day_of_Week to determine if today is Monday or not. If it is Monday, then subtract 3 days, else subtract one day.