sub date_list {
    my ( $from, $to ) = @_;

    my @dates        = $from;
    my $intermediate = $from;

    while ( $intermediate ne $to ) {
        $intermediate = sprintf "%04d-%02d-%02d", Add_Delta_Days( split( /-/, $intermediate ), 1 );
        push @dates, $intermediate;
    }

    my $first    = shift(@dates);
    my $last     = pop(@dates);
    return map { ($_) x 10 } @dates;
}