Don't forget that localtime can also take an expression in time() format. You could figure out the time of your date, pass it to localtime, and then grab what's in slot 6.

I wouldn't do it that way, but:

my @date = localtime(time);
print $date[6];
[download]

How about that, Thursday is the 4th day of the week!