use Date::Calc qw/Today Delta_Days Add_Delta_Days/;

my $date_from = "2009.08.22";

my ($Y,$M,$D) = split(/\./,$date_from);	# Startdatum JMT
my ($Yn,$Mn,$Dn) = Today();				# Datum JMT Jetzt

my $delta_days =  Delta_Days($Y,$M,$D,$Yn,$Mn,$Dn);

for my $d (0..$delta_days) {
      my ($year,$month,$day) = Add_Delta_Days(($Yn,$Mn,$Dn), $d);
	  print join ".",($year,$month,$day), "\n";
}