use Date::Simple;

my $d = Date::Simple->today;
printf "today is: %s\n", $d->day_of_week;
printf "tomorrow is: %s\n", ($d + 1)->day_of_week;
printf "yesterday is: %s\n", ($d - 1)->day_of_week;