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

##</code><code>##

if ($foo) {
    bar;
} else {
    baz;
}

##</code><code>##

if ($foo) {
    bar;
}
else {
    baz;
}