gistfile1.pl

package DateRange;

# Usage: `use DateRange qw( getDateArray );`
use strict;
use warnings;
use base qw(Exporter);
our $VERSION   = 1.00;
our @EXPORT_OK = qw( &getDateArray );
 
sub getDateArray {

    use Date::Simple (':all');

    my $todays_date = today();

    my @date_loop;
    
    for ( my $i = 1; $i <= 30; $i++ ) {
        my %date_list;
        my $date = $todays_date - $i;
        my $d8 = $date->as_d8;
        $date_list{d8} = $d8;
        $date_list{date} = $date;
        push @date_loop, \%date_list;
    }

    return @date_loop;
}

1;