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