/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

##</code><code>##

/sasdata=>find /sasdata/it/development/sasmonitoring/code -type f |perl \
hsharm01@sasbsp20> -e 'while (<>) {$l=$_;@d=localtime((stat($l))[8]);printf "%4d%02d%02d %s",$d[5]+1900,$d[4]+1,$d[3],$l}'
19691231 /sasdata/it/development/sasmonitoring/code/growthmonitor.sas
19691231 /sasdata/it/development/sasmonitoring/code/growthmonitor.sh