Win32::File::GetAttributes($path, $attr);
    Win32::File::SetAttributes($path, $attr & ~ READONLY);