Help for this page

Select Code to Download


  1. or download this
    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
    
  2. or download this
    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