#!/usr/bin/perl

use strict;
use DateTime;

my $today = DateTime->today();
my $last_month = $today->subtract( months => 1 );

my $first = $last_month->clone()->set_day(1);
my $last  = $first->add( months => 1 )->subtract( days => 1 );

print $first;
print $last;