[perl] Adicionado lister.pl v0.1

Script q busca arquivos e subdiretorios usando forca bruta.

v0.1:

- Apenas um nivel abaixo do diretorio informado;
- 3 niveis (trabalho, brincadeira, teste (cf. comentarios));

TODO:
  Tentar reduzir quantidade de memoria em uso (pq para tamanhos grandes de
  palavras provavelmente vai ocupar bastante memoria, sem contar o tempo, que
  jah eh grande com arquivos de tamanho 3).
Merge branch 'perl' of github.com:aramisf/code into perl