...
$attr &= ~COMPRESSED;
Win32::File::SetAttributes($path, $attr);

##</code><code>##

print unpack("B*", pack("N", $attr)), "\n";
# or
printf "%032b\n", $attr;