Report question

Question: perl iterate through directories