For a perl solution to your problem, you need to take a look at Win32::FileSecurity. If you use File::Find to recursively descend directory paths, call the Get function to obtain permissions, this should do the trick.

hth

--rW