my ($uid,$gid) = (stat($filename))[4,5];