#!/usr/bin/perl
use strict;
my($d1,$d2,$m1,$m2,$y1,$y2)=(1,31, 1,12, 1900,2100);
for my $y($y1..$y2){
    for my $m($m1..$m2){
        printf "%02d%02d%04d\n",$_,$m,$y for $d1..$d2;
    }
}
for my $y(0..9999){
    for my $m(0..99){
        for my $d(0..99){
            printf "%02d%02d%04d\n",$d,$m,$y if($d$d2 || $m$m2 || $y$y2);
        }
    }
}