perl -MYAML -pe'$t{19000100+sprintf"%d%02d%02d",(localtime((stat)[9]))[5,4,3]}+=-s}{$_=Dump\%t'