Select Code to Download

#!/usr/bin/perl
use warnings;
...
    return map { ($_) x 10 } @mults;                 # <--- HERE
}
say for date_list('2014-01-01', '2014-01-10');