/sasdata=>perl -e '$l=$ARGV[0]; @d=localtime ((stat($l))[8]);printf "%4d%02d%02d %s\n",$d[5]+1900,$d[4]+1,$d[3],$l' mhugo01
20090824 mhugo01