Seguindo a partir daqui:Perl Imgsize não funciona em loop? Tenho outra pergunta - como não permito que o perl liste as entradas de ponto único e duplo quando ele lê os arquivos em um diretório?

Como na pergunta vinculada acima, minha saída para o loop while (while ($file = readdir($dh))) é algo como isto:

.
..
file1.jpg
file2.jpg 
file3.jpg 
file4.jpg 
file5.jpg 

E isso cria problemas, porque eu também tenho um contador em algum lugar, que está contando meus arquivos. E. e.. não contam como arquivos, então meu contador está fornecendo um número maior de arquivos em meus diretórios do que realmente existem.

Eu adicioneiif($file == "." || $file == ".."){ continue;} eif ($file ~ /^\./ or $file ~ /^\.\./) {continue;} e diferentes variações disso para o início do loop while ... mas continuo recebendo um aborto "devido a erros de compilação".

Como podemos obter as entradas de ponto simples e duplo?