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('/').")
";
####
Test: Number of days in period :1 (01/04/2007 - 22/10/2007)