my $date1 = $ARGV[0];
my $date2 = $ARGV[1];

my ( $start, $end ) = ( date($date1), date($date2) );
my $range = Date::Range->new( $start, $end );
my @all_dates = $range->dates;

my %hash=("01"=>"Jan","02"=>"Feb","03"=>"Mar","04"=>"Apr","05"=>"May","06"=>"Jun","07"=>"Jul","08"=>"Aug","09"=>"Sep","10"=>"Oct","11"=>"Nov","12"=>"Dec");

foreach my $numericDate (@all_dates)
{
	while ( my ($key, $value) = each(%hash) ) 
	{
		$numericDate =~ s/\-$key-/\-$value\-/g;
	}
}


my @tempArray;

foreach my $reverseDate (@all_dates)
{
	split (/-/,$reverseDate);
	my $correctFormat = $_[2]."-".$_[1]."-".$_[0];
	push (@tempArray, $correctFormat);
}

print "\n@tempArray\n";


##</code><code>##

$ ./test.pl 2011-12-10 2011-12-13
==============================

10-Nov-2011 11-Nov-2011 12-Nov-2011 13-Nov-2011 14-Nov-2011 15-Nov-2011 16-Nov-2011 17-Nov-2011 18-Nov-2011 19-Nov-2011 20-Nov-2011 21-Nov-2011 22-Nov-2011 23-Nov-2011 24-Nov-2011 25-Nov-2011 26-Nov-2011 27-Nov-2011 28-Nov-2011 29-Nov-2011 30-Nov-2011 01-Dec-2011 02-Dec-2011 03-Dec-2011 04-Dec-2011 05-Dec-2011 06-Dec-2011 07-Dec-2011 08-Dec-2011 09-Dec-2011 10-Dec-2011 11-Dec-2011 12-Dec-2011 13-Dec-2011

==============================