#!/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++;
}

1: 2010.12.01
2: 2010.12.02
3: 2010.12.03
4: 2010.12.04
5: 2010.12.05
6: 2010.12.06
7: 2010.12.07
8: 2010.12.08
9: 2010.12.09
10: 2010.12.10
11: 2010.12.11
12: 2010.12.12
13: 2010.12.13
14: 2010.12.14
15: 2010.12.15
16: 2010.12.16
17: 2010.12.17
18: 2010.12.18
19: 2010.12.19
20: 2010.12.20
21: 2010.12.21
22: 2010.12.22
23: 2010.12.23
24: 2010.12.24
25: 2010.12.25
26: 2010.12.26
27: 2010.12.27
28: 2010.12.28
29: 2010.12.29
30: 2010.12.30
31: 2010.12.31
32: 2011.01.01
33: 2011.01.02
34: 2011.01.03
35: 2011.01.04
36: 2011.01.05
37: 2011.01.06
38: 2011.01.07
39: 2011.01.08
40: 2011.01.09
41: 2011.01.10
42: 2011.01.11
43: 2011.01.12
44: 2011.01.13
45: 2011.01.14
46: 2011.01.15
47: 2011.01.16
48: 2011.01.17
49: 2011.01.18
50: 2011.01.19