Hello younggrasshopper13,

I think you are looking for that Get previous date. There are plenty of examples and easy to understand.

From there just make a subroutine loop for every month that will return new start and end date. :D

Update: Simple example using DateTime.

#!usr/bin/perl
use say;
use strict;
use warnings;
use DateTime;

my $time_now = DateTime
    ->now( time_zone => 'local' );

say $time_now->strftime("%Y, %m, %d");

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

say $one_month_ago->strftime("%Y, %m, %d");

__END__

$ perl test.pl
2017, 06, 23
2017, 05, 24
[download]

Hope this helps, BR