use Date::Calc qw(Date_to_Days Add_Delta_Days Monday_of_Week);
# den Montag der Kalenderwoche ermitteln und in Tage seit 01.01.0001 umrechnen
my $monday = Date_to_Days Monday_of_Week 47, 2003;
# die 4 Tage drauf, dann ist Freitag der Woche
my $friday = $monday + 4;
# und alles ausgeben
for ($monday, $friday)
{ # Days_to_Date gibt es nicht, deswegen Add_Delta_Days
  # Add_Delta_Days gibt ($year, $month, $day) zurück, deswegen reverse 
  printf "%02d.%02d.%04d", reverse Add_Delta_Days 1, 1, 1, $_-1;
}