perl -e 'my @st = stat "/tmp/film.mpg"; print "$st[10]\n";'