use Date::Manip;
   print "One day ago was: ", DateCalc('today', '- 1 day'), "\n";