Thanks all of you for the resposes!

I used this code ast a starting point, and I'm almost there, thanks!

I had to change
next if (-D
into
next if (!-d
I guess that's just my version of perl?