print $lastmonth->mon, "\n";
print "ref: ", ref $lastmonth, "\n";
print "one: ", $t->add_months(-1)->mon, "\n"; # all together