in reply to DATE =TO= DAY OF WEEK

use Date::Manip;
my $day = UnixDate("May 21,1981", "%A");

[download]

In Section Seekers of Perl Wisdom