or download this
my $startdt = DateTime->new(day => 1, month => 4, year => 2007);
my $enddt = DateTime->new(day => 22, month => 10, year => 2007);
my $duration = $startdt->delta_days($enddt);
my $numdays = $duration->days;
print "Test: Number of days in period :$numdays (".$startdt->dmy('/').
+" - ".$enddt->dmy('/').")<Br>";