perl -lne '@f=localtime((stat)[9]);$t{sprintf"%d%02d%02d",$f[5]+1900,$f[4]+1,$f[3]}+=-s;}{print"$_ $t{$_}"for keys%t'