Help for this page
use Date::Calc qw(Today_and_Now Add_Delta_YMDHMS Day_of_Week_to_Text M +onth_to_Text Day_of_Week); while (<DATA>) { ... +10y -1h +3d
now Monday, 24-November-2003 23:26:11 GMT ... Monday, 24-November-2003 22:26:11 GMT +3d Thursday, 27-November-2003 23:26:11 GMT