☹ $ perl -MTime::Piece -MTime::Seconds -e 'warn +((localtime) - ONE_MONTH)->strftime("%Y-%m-%d %T")' 2011-01-30 01:04:35 at -e line 1.☺ $ perl -MTime::Piece -e 'warn +(localtime)->add_months(-1)->strftime("%Y-%m-%d %T")' 2011-02-01 11:40:2…