in reply to Help with File::Find
To stop recursion set variable $File::Find::prune in true value (e.g. $File::Find::prune = 1) when you will in *certain* directory