#!/usr/bin/perl

use Time::Piece;
use Time::Seconds; 

my $now = localtime;
 
print sprintf("Now = %s\n", $now->cdate);
 
for (1..12) {
  $now += ONE_MONTH;
  print sprintf("Now + %02i months = %s\n", $_, $now->cdate);
}