in reply to $File::Find::Parent desired

I believe what you want is actually provided by the $File::Find::dir variable.

jdporter
...porque es dificil estar guapo y blanco.

In Section Seekers of Perl Wisdom