If you had read my original post on CLPM which had that code you would have seen that I recommended File::Find to do this.

/J\