print "Done according to POD:\n";
print "  Mon: " . $now->add_months(-1) . "\n";
print " Year: " . $now->add_years(-1) . "\n";