find top_level -type f -print0 | xargs -0 md5sum | perl -lape 's/ /$d=(-M $F[1])*3600*24;sprintf(" %9d %s ",-s _,scalar(localtime($^T-$d)))/e' > master.list