Thats some monster code for a simple task! Use this instead:

use warnings;
use strict;

use DateTime;

my $end = DateTime->new(year => 2009, month => 12, day => 31);
my $date = DateTime->new(year => 1896, month => 1, day => 1);

while ($date <= $end) {
  print $date->ymd, "\n";
  $date->add( days => 1 );
}
[download]

regards,