Select Code to Download

   my $dt1 = DateTime->now();
   my $dt2 = $dt1->clone->subtract( weeks => 1);

#!/usr/bin/perl -w
use strict;
...
for (@dates) {
    print $_, $/;
}

2017-02-01T00:00:00
2017-02-01T00:00:00
...
2017-02-01T00:00:00
2017-02-01T00:00:00
2017-02-01T00:00:00

2017-01-02T00:00:00
2017-01-03T00:00:00
...
2017-01-27T00:00:00
2017-01-30T00:00:00
2017-01-31T00:00:00