Take a look at Date::Calc or one of the other date modules on CPAN. In particular, see the Day_of_Week function in Date::Calc.

Phil