Select Code to Download

my $one_month_ago = DateTime
    ->now( time_zone => 'local' )
    ->subtract( days => 30 );

use DateTime;

...
2017-03-01
-30 days: 2017-01-30 2017-01-30
-1 month: 2017-02-01 2017-02-01

use DateTime;
my $dt = DateTime->now->truncate(to=>'month');
...
2017-05-01 to 2017-05-31
2017-04-01 to 2017-04-30
... etc.

use DateTime;
my $now = DateTime->now;
...
2015-08-01 to 2015-08-31
2015-09-01 to 2015-09-30
...