use Date::Calc qw/Day_of_Week Day_of_Week_to_Text Language Decode_Language/;

Language (Decode_Language ("Deutsch"));
print Day_of_Week_to_Text ( Day_of_Week (2004, 7, 1));
_ _END_ _
Donnerstag