#!/usr/bin/perl

# usage programname [<number of dates to output>]

use Date::Calc qw(:all);

use strict;

my $number; $number = 1 unless($number = shift);
my $startyear = "1950";
my $endyear = "1990";
my $day; my $days; my $month; my $year;
my @dates;

foreach $year ($startyear..$endyear)
{
   foreach $month (1..12)
   {
      $month = sprintf("%02d", $month);
      $days = "";
      $days = Days_in_Month($year, $month);
      foreach $day (1..$days)
      {
	 $day = sprintf("%02d", $day);
	 push @dates, "$year-$month-$day";
      }
   }
}

foreach(1..$number)
{
   print $dates[int rand($#dates)], "\n";
}