Both readdir and glob return files with 'hidden' attribute set:

perl -e "opendir DH, '\hidden' or die $!;print $_,$/ while $_ = readdi
+r DH"
.
..
hidden.txt

perl -e "print $_,$/ for glob '\Hidden\*'"
\Hidden\hidden.txt
[download]