use Date::Manip
    
   $day=&Date_DayOfWeek($m,$d,$y);