Date:Calc is easy and more versatile than Date::Simple and DateTime. use Date::Calc qw(:all); print Day_of_Week($year,$month,$day);