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