haukex Can you please write the code?

I already did, if you click the link I provided twice. File::Find examples are easy to find too. I'm also happy to write code if you show your efforts (=code) - show what you tried, explain how it doesn't work, if you provide a SSCCE, and post a question according to How do I post a question effectively? But sending me two private messages with essentially the same as your post here is not going to motivate me, quite the opposite. As Corion already said, we're happy to help you learn, but this is not a code wrtiting service.