I would recommend checking out File::Find::Rule, which includes the ability to easily check if the "file" is a directory and if it is empty.