You may want to look into using File::Find or File::Basename for your task. They seem to do what you require.

There's also the SuperSearch for 'directories' found here, which returns quite a bit of other monks with similar questions.