#!/usr/bin/perl -w

use strict;
use Date::Simple;
use Date::Range;

# Define our dates
my $date1 = Date::Simple->new('2006-02-02');
my $date2 = Date::Simple->new('2007-02-02');

# Create our range
my $range = Date::Range->new($date1, $date2);

# Find the number of days between the specified dates 
my $number_of_days = $range->length;
print "Number of days between dates: $number_of_days\n";

# Now print each of these dates
foreach my $date ($range->dates) {
  print $date->as_str . "\n";
}