i am sure there is a smart module out there to solve this, but i would do the following:

1.) use Time::Local
- with the help of this module you can convert the date (may 25 2002) to Unix time.
2.) and then localtime($your_unix_time) will give you the weekday (check localtime manual)

-- tune