Don't re-invent the wheel, use File::Find for this sort of thing. Well worth learning.