use v5.10;
use Time::Moment;

my $tm1 = Time::Moment->new(year => '2019', month => '6', day => '1');
my $tm2 = Time::Moment->now;

$tm1 = (say $tm1->strftime('%c') and $tm1->plus_months(1)) while $tm1 <= $tm2;