Many reasons, though perhaps only important to me:

I used this as an exercise for OO programming. I have so many scripts working on a directory tree, collecting information and doing something with it. The shown script will help me to put it all into a single scheme.

Using File::Find I import another 5 modules. I like to avoid this for building MacPerl standalones

Another aspect of the whole script (not concerning File::Find) is having the same "find" interface under MacPerl.

I was impressed by MJDs Idendity charts

Lastly - I found your TieFinder example which avoids File::Find too :)

How could I improve the overall design, be it for educational purposes?