($mode, $uid, $gid) = ( stat $file )[2,4,5];