use Date::Simple qw(date);

for (my $d = date('2009-05-16'); $d <= date('20090602'); $d++) {
   print $d, "\n";
}