use Date::Calc qw(Add_Delta_Days);
($year, $month, $day) = Add_Delta_Days($old_year, $old_month, $old_day, $offset);