Here's another way:

use Date::Calc qw(Today Standard_to_Business Business_to_Standard Date
+_to_Text);

my ($year, $week, $dow) = Standard_to_Business(Today());

print Date_to_Text(Business_to_Standard($year, $week, $_)),"\n" for (1
+ .. 7);
[download]

One thing to remember is that in the Date::Calc module, weeks start with Monday, unlike most US calendars.