use strict;
use warnings;


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