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

Well, that was fun.

Thanks to Roy Johnson for pointing out a goof.