If you don't want to knock something up yourself, you can always use the File::Find module from CPAN

I've used it a couple of times in the past and it's worked pretty well. Although, I haven't tried it on Win32 systems...