my $attrib; Win32::Fine::GetAttributes($path, $attrib); if ($attrib & HIDDEN) { # HIDDEN and other attributes are # exported by Win32::File by default print "$path is hidden\n"; }