http://www.perlmonks.org?node_id=29899


in reply to bag of questions...

Take a look at my column on recursive directory operations for a way to do this within the File::Find framework (generally superior for recursive directory ops. The code at the end of the article should be mostly usable: just change the symlinking to a file copy instead.

-- Randal L. Schwartz, Perl hacker