File::Find would be the best way to go about this... You can also something like Recursion example (Directory sizing on the side) this.

Greetz
Beatnik
... I'm belgian but I don't play one on TV.