#!/usr/bin/perl

use DateTime;

$dt = DateTime->now();
$dt->subtract(months => 1);

$year = $dt->year();
$month = $dt->strftime("%m");

print $dt."\n";

print $month."\n";

print $year."\n";