while ($date <= $endDate) {
        say $date;
        $date = 'Time::Piece'->strptime(
            join(' ',
                 $date->year + ($date->mon == 12), $date->mon % 12 + 1, 1),
            '%Y %m %d');
}

##</code><code>##

while ($date <= $endDate) {
        say $date;
        $date += Time::Seconds::ONE_DAY * $date->month_last_day;
}