Estaba mirando a PerlFile::Find Módulo y lo probé de la siguiente manera:

#!/usr/bin/perl

use warnings;
use strict;

use File::Find;

find({wanted => \&listfiles,
        no_chdir => 1}, ".");


sub listfiles{
    print $File::Find::name,"\n";
}

Ahora cuando lo ejecuto obtengo la siguiente salida:

Noob@Noob:~/tmp$ perl test.pl 
.
./test.txt
./test.pl
./test1.txt
./hello
./hello/temp.txt

Ahora, estaba pensando que al establecerno_chdir=>1 Haré mi código para no ingresar a ningún directorio si se encuentra con uno. Pero la salida muestra claramente que mi código está entrando.hello Directorio y listado de sus archivos.

Entonces, ¿cómo cambio mi código para comportarme comols y no entrar en ningún directorio. Tambien me estoy poniendo./ delante de mi nombre de archivo / directorio, ¿se pueden eliminar?

Estoy usando Perl 5.14.