simple:     print $day_of_week[$wday];
complex:  print $day_of_week[ ((localtime($^T))[6] + 4) % 7 ];