print "Got name = [$File::Find::name] dir = [$File::Find::dir]\n";

##</code><code>##

-- 
I knock my pate and fancy wit will come
Knock as I please, there's no one at home
      a pontiff paraphrased