Select Code to Download

  if (-f $_) {
    if (-s _ == 0) {
      print $File::Find::name, "\n";
    }
  }

my %usage;

...
}

find({wanted => \&wanted, postprocess => \&postprocess}, ...);