Perl: Como parar File :: Find entrando no diretório recursivamente?

Eu estava olhando para PerlFile::Find módulo e tentei da seguinte forma:

#!/usr/bin/perl

use warnings;
use strict;

use File::Find;

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


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

Agora, quando eu corro, recebo a saída abaixo:

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

Agora, eu estava pensando que, ao definirno_chdir=>1 Eu farei meu código para não entrar em nenhum diretório se ele encontrar um. Mas a saída mostra claramente que meu código está entrandohello diretório e listando seus arquivos.

Então, como eu mudo meu código para me comportar comols e não entra em nenhum diretório. Também estou ficando./ na frente dos meus nomes de arquivos / diretórios, isso pode ser removido?

Eu estou usando o Perl 5.14.