What you will need is a good recursive File Finder.
You might want to poke at the source of File::Find.
Failing that, if you run a Super Search using find file you will get a whole whack of hits, some with bad recursive search methods. Some with better. Including some here. ;-)
I'm not sure if it shows but he's using Net::FTP, which AFAIK isn't implemented in File::Find. This can turn out to be quite tricky, since FTP's filesystem isn't as accessible as a local one.
Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.
No, I knew that he was using Net::FTP - notice that I said to poke at the source of File::Find. Basically just needs a recursive routine, I was just pointing him to one that is used by most people that know better.