Or you could use Time::ParseDate and Time::CTime (both come together in the time-modules bundle).

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

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

(by the way, "May 25, 20002" is a Saturday)....