use Date::Manip;

my ($newdate) = DateCalc("today", "- 1month");