in reply to Deleting Files on NT
Win32::File::GetAttributes($file, $attrib); [download]
-w # file is writable -r # file is readable -e # file exists [download]