use strict; use warnings; use DateTime qw( ); my $sdt = DateTime->new( year => 2010, month => 3, day => 9, ); my $edt = DateTime->new( year => 2010, month => 3, day => 16, ); for (my $dt = $sdt->clone(); $dt<=$edt; $dt->add( days => 1 )) { print($dt->ymd(), "\n"); } #### 2010-03-09 2010-03-10 2010-03-11 2010-03-12 2010-03-13 2010-03-14 2010-03-15 2010-03-16