C:\Temp>perl -MTime::Piece -e "$t = localtime; for(1..7){$anoDate = localtime($t->epoch +($_*60*60*24)); print $anoDate->wdayname};"
FriSatSunMonTueWedThu