perl -MPOSIX=strftime -MFile::Find -e'find(sub{-f and$t{strftime"%Y%m%d",localtime((stat)[9])}+=-s;},".");print"$_ => $t{$_}\n"for sort keys%t;'