$ find
.
./.bar
./.bar/abc
./.bar/baz
./file-find.pl
./foo
./foo/blubb
./def
$ cat file-find.pl 
#!/usr/bin/perl
use strict;
use warnings;

local $\ = "\n";
use File::Find;
find(sub {return if m/^\./; print }, '.'); 
__END__
$ perl file-find.pl 
file-find.pl
def
abc
baz
foo
blubb