Select Code to Download

use strict;
use DateTime::Set;
...
            } $set->as_list;
# @dates now contains a list of MySQL looking date strings

# non-production-ready code follows
my ($start_day,$end_day) = $dbh->selectrow_array("select to_days(now()
+), to_days(now() + interval 7 day)");
my @dates = map {
              $dbh->selectrow_array("select from_days($_)")
            } $start_day .. $end_day;