END { exit 1+($epochs[0] <=> $epochs[1]) } #### 0: first time is earlier 1: both times are the same 2: second time is earlier #### perl -MTime::Local -lane'END{exit 1+($d<=>0)}$F[1]--;$d+=($.*2-3)*timelocal@F[5,4,3,2,1,6]'