#!/usr/bin/perl

use strict;
use warnings;
use DateTime;

my $start = DateTime->new(year => 2009, month => 5, day => 16);
my $end   = DateTime->new(year => 2009, month => 6, day => 2);
my $curr  = $start;

while ($curr <= $end) {
  print $curr->strftime('%Y%m%d'), "\n";
  $curr->add(days => 1);
}