in reply to A Better Way To Get Days Since Monday of Last Week

Can use some Date::Calc methods (add what's gone by in this week to what was left in the previous week):
use Date::Calc qw/Today Day_of_Week Decode_Day_of_Week/; print Day_of_Week( Today ) + (7 - Decode_Day_of_Week('Monday')); print Day_of_Week( Today ) + (7 - Decode_Day_of_Week('Friday'));