Perl : 时间处理 取前一天

use Date::Calc;
# 2009年8月7日的前一天     
($year, $month, $day) = Add_Delta_Days(2009, 8, 7, -1);