http://www.perlmonks.org?node_id=308393


in reply to Golfing a size/date grabber

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

Well, that was fun.

Thanks to Roy Johnson for pointing out a goof.