in reply to How to get after 4 and 5 days date from today date

With Date::Calc you could try Add_Delta_Days: 
Add_Delta_Days
      ($year,$month,$day) =
      Add_Delta_Days($year,$month,$day,
                     $Dd);

[download]

In Section Seekers of Perl Wisdom