in reply to A Better Way To Get Days Since Monday of Last 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')); [download]