use Date::Calc qw( Today Add_Delta_Days
                   Day_of_Week_to_Text Day_of_Week );

my @today = Today();

my $days_in_the_future = shift || 0;

my @then = Add_Delta_Days( @today, $days_in_the_future );

print Day_of_Week_to_Text( Day_of_Week( @then ) ), "\n";