my $heute = '19.12.2009';
my $wochenstart = join ('.', reverse Add_Delta_YMD (reverse (split /\./,$heute),0,0,-(Day_of_Week (reverse split /\./,$heute) - 1)));
print "Wochenstart: >$wochenstart<\n";