You didn't ask for a code review, but I can't stop myself from making a few observations.

finddepth Is not a reserved word, you must include it in the list, so it can be exported to your package. That way, you can use just "finddepth" instead of "File::Find::finddepth", without also importing find().

Your code has no indentation. Indents make code a lot easier to read. If you want people to help with your code, it's generally a good idea to make sure they can read it :)

You have an awful lot of ALLCAPS words, which can be quite annoying.

A sub in an if's else block in another sub isn't going to make reading or maintaining the code any easier.

The script has some small problems, but it's a nice obfuscation.

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk