#!/usr/bin/perl
use warnings;
use strict;
use File::Find ();                     # See the Cookbook p.324 to 
sub find (&@) { &File::Find::find }    # call find like grep or map 

my $start = 'd:/temp';

find { find_again($_) if (-d && !/^\./)} $start;

sub find_again {
    my $found = $_;

    print "First find found: $found\n";

    print "Second find found dirs:\n";

    find { print "$_\n" if (-d && !/^\./)} $found;
}

__END__
Directories are:

d:/temp/one/a
           /b
           /c
       /two/d
           /e
           /f
     /three/g
           /h
           /i

OUTPUT: 

First find found: two
Second find found dirs:
d
e
f
d
e
f
one
a
b
c
three
g
h
i
[download]

Two things are going on here that I don't understand. First, why is find_again printing out all these directories? It was only ever called once, with /two as the starting directory. Second, why is find_again only called once? It should (well, what I intended) be called three times, on /one, /two and /three.

I thought the problem might be find changing the current directory, so I cached it at the start of find_again and chdir'd back at the end, but that made no difference.

Can the Monks enlighten me?