in reply to How to remove COMPRESSED attribute with Win32::File?

On: 
Win32::File::GetAttributes($path, $attr);
$attr |= COMPRESSED;
Win32::File::SetAttributes($path, $attr);

[download]
Off: 
Win32::File::GetAttributes($path, $attr);
$attr &= ~COMPRESSED;
Win32::File::SetAttributes($path, $attr);

[download]

In Section Seekers of Perl Wisdom