perl -MFile::stat -le'$pv=stat(shift); print "$pv->uid,$pv->gid,$pv->mode"' /dir/filename

##</code><code>##

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

##</code><code>##

perl -e'printf "%s,%s,%04o\n", (stat shift)[4,5,2]' /dir/filename

##</code><code>##

perl -e'printf "%s:%s,%s,%04o\n", $_, (stat)[4,5,2] for @ARGV' file1 file2