今年の日付を作るスクリプト

days.pl

use strict;
use warnings;

my @days = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

for my $month (1..12) {
  for my $day (1..$days[$month - 1]) {
    print "2014/$month/$day\n";
  }
}