[MacPerl] recursive dir script

[Joel Feinstein <jff@feinst.demon.co.uk>]

This is my first message to this list. I've been learning a bit of perl in
my spare time.
I thought I'd try the standard "recursive dir" script on a mac. Of course
lots of changes were needed to go from unix to mac, but it appeared to work.
I tried it out on some magazine cover CDs to make an archive I can search,
since it's hopeless otherwise. At first it worked fine, but when I tried it on
my brother's quadra I started getting very unpleasant crashes, which turned
out to be caused by deep recursion. (I started getting folder names with
lots of colons :::::). I have a fix, and my script now works, but perhaps
someone has
a "safer" version of this script?

Joel Feinstein