#!/usr/bin/env perl 

use strict;
use warnings;
use Time::Piece '1.32';

my $date = localtime->add_years (-4)->truncate (to => 'year');
my $end_date = localtime;

while ($date <= $end_date) {
    print "$date\n";
    $date = $date->add_months (1);
}