That looks pretty good as it is. The File::Find usage looks fine.
I think your @ARGV handling is unnecessary. You have already arranged for command line options to set the default modes. Those options are removed from @ARGV when Getopt::Long parses them. You could arrange for @ARGV to be a list of directories to apply to if you wished.
Kudos for including a usage function. You may be interested in Pod::Usage. It automatically extracts usage functions from the pod - which I recommend you add to your script. You can then read the pod with perldoc myscript and you can easily extract a man.1 page from your literate perl on installation.
Good work, I wouldn't guess you'd been using perl such a short time.
After Compline,
Zaxo
In reply to Re: How would you go about it?
by Zaxo
in thread How would you go about it?
by pcassell
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |