use Date::Calc::Iterator;

  # This puts all the dates from Dec 1, 2003 to Dec 10, 2003 in @dates1
  # @dates1 will contain ([2003,12,1],[2003,12,2] ... [2003,12,10]) ;
	my @sr = (2005,07,1);
  my $i1 = Date::Calc::Iterator->new(from => [@sr], to => [2005,10,1]);
  my @dates1 ;
  push @dates1, $_ while $_ = $i1->next ; 

foreach my $v (@dates1) {
print "@$v\n";
}