Select Code to Download

use Time::Local;
@t = split(/[ :]/,scalar(localtime(time)));
...
      scalar(localtime(timelocal($t[5],$t[4],$t[3],$t[2],$mon,$t[6])))
+,"\n");'
Mon Oct 29 15:59:06 2018
Mon Oct 29 15:59:06 2018