Happy March!!

☹

$ 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:28 at -e line 1.