use strict;
use warnings;
use File::Find::Rule::DirectoryEmpty;
        
my $dir = 'C:/Temp/';
my @emptydirs = File::Find::Rule->directoryempty->in($dir);
print "$_\n" for @emptydirs;