Another option is perlfunc:readdir you should have enough information from larryk's post to adapt the example in the man page. And of course if you want to do this recursively you should be looking at File::Find.

--
Until you've lost your reputation, you never realize what a burden it was or what freedom really is. -Margaret Mitchell