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'));