perl -e 'utime("0515171398","0515171398","test.pl")'

##</code><code>##

grep> cd pub
grep> more beer