GetAttributes($file, my $attributes);
if ( $attributes | ARCHIVE() ) {
...
}