#!/usr/bin/perl

use DateTime;

$dt = DateTime->now->subtract(months => 1);
$month = $dt->strftime("%m");
$year = $dt->year();

print $dt."\n";

print $month."\n";

print $year."\n";