use strict;
use warnings;
use Date::Calc qw(Today Day_of_Week 
                  Day_of_Week_to_Text 
                  Month_to_Text
                  Language
                  Decode_Language
                  Today);

Language(Decode_Language("Deutsch"));
my ($year, $month, $day) = Today();

print "Jahr $year\n";
for $month (1..12) 
  {
  my $dow = Day_of_Week($year, $month, 1);
 
  printf "Der 1. %-9s ist ein %s\n",
         Month_to_Text($month),
         Day_of_Week_to_Text($dow);
  }