unless cross-platform issues are not and issue, and speed is in which case you CAN do it faster by doing it yourself. I don't remember what method turned out to be the fastest when I benchmarked them, but I do remember it wasn't File::Find, and since the requestor is asking for a script for his personal use in learning to program perl he should probably look at all the various methods, and consider their benefits and detriments for his own particular situation.
Not to rant, but I hate it when people say "If you're doing such-and-such, you should do it this way." as if there weren't a million and a half equally good ways of doing it.
I admit that I personally don't re-invent the wheel unless I have to. If there's a perfectly good module out there to do the job, I'll generally use it... but I digress.