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"); }