NTFSとか

C:\tmp>touch a

C:\tmp>touch 1

C:\tmp>perl -e "opendir(D, q!.!); while($l=readdir(D)){print qq!$l\n!;}"
.
..
1
a