#!/usr/bin/perl

use strict;
use warnings;
use DateTime;

my $start = '2010.12.01';
my %date;
@date{qw/year month day/} = split /\./, $start;

my $start_obj = DateTime->new( %date );
my $end_obj   = DateTime->now;

my $counter = 1;
while ( $start_obj <= $end_obj ) {
    print "$counter: ", $start_obj->ymd('.'),"\n";
    $start_obj->add( days => 1 );
    $counter++;
}