$ cat >foo.txt
[Ctrl-D]
$ perl -MPOSIX=strftime -e'print strftime("%Y\n",
> localtime((stat "foo.txt")[9]))'
2007
$