in reply to script for directory mapping

File::Find

In Section Seekers of Perl Wisdom