in reply to Prior Date

use Date::Pcalc;