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