# next line here would be 2731
    use Date::Format;
    use Date::Calc qw(Add_Delta_Days);

    $date = sprintf(time2str("%D", time));

Below error message produced on section call up
Date::Calc::Delta_Days(): not a valid date at GasProg line 2731.