You would get -- from me (if I gave them out for anything less than catastrophic errors) for a few reasons:

• 'use strict'
• 'use warnings' or '-w'
• error checking
• If merlyn sees this, he is sure to warn you about the potential infinite loops because of links.
• File::Find is your friend.

You should start using them now, or you will be in trouble later.

Start looking into CPAN for the modules available to save you time and energy.

All in all, halfway decent code, and will be pretty good once you get a little more experience. We aren't all merlyn or vroom.

J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
jhorner@knoxlug.org http://www.knoxlug.org/