perl -le'$,=","; print((stat shift)[4,5,2])' /dir/filename