use Win32::File qw/ ARCHIVE COMPRESSED... /;
... GetAttributes($file, ARCHIVE | COMPRESSED );