use Time::ParseDate;
use Time::CTime;

my $day_of_week=strftime("%A",localtime(parsedate("May 25, 2002")));