perl -MTime::Local -lane"END{print$t[1]-$t[0]}$F[1]--;push@t,timelocal@F[5,4,3,2,1,6]"

##</code><code>##

perl -MTime::Local -lane"END{print$t}$F[1]--;$t+=($.*2-3)*timelocal@F[5,4,3,2,1,6]"