Select Code to Download

foreach my $day(0..15){     
     my @ymd = (localtime(time - 3600*24*$day))[5,4,3];  # build up an
+ array of just year,month and day, n days backward
...
2017-12-20
2017-12-19

# untested...
foreach my $filepath (@paths){
...

}