#!/usr/bin/perl

use DateTime;

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

print $dt."\n";

print $month."\n";

print $year."\n";