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