perl -e 'print strftime "%y%m%d%H%%M%S\n", localtime($mtime);'
perl -e 'use POSIX qw(strftime);print strftime "%y%m%d%H%M%S\n", localtime();' 081022102542