#!perl
use strict;
use Time::Piece ;
my $year = 2014;
foreach my $month ( 1..12 ) {
  my $t = Time::Piece->strptime("$year/$month/01", "%Y/%m/%d");
  my $dd = 34 - $t->_wday; # sun=0
  $dd -= 7 if $dd > $t->month_last_day;
  print "$year $month $dd\n";
}