filename=foo date=`perl -e 'print ((stat($ARGV[0]))[9] . "\n")' $filename`
filename=foo date=`perl -e 'print (localtime((stat($ARGV[0]))[9]) . "\n")' $filename`