Select Code to Download

sub date_list {
    my ( $from, $to ) = @_;
...
    my $last     = pop(@dates);
    return map { ($_) x 10 } @dates;
}

2014-01-03
2014-01-03
...
2014-01-05
2014-01-05
2014-01-05