File::Find::Rule is friendlier interface to Find::File, and it has lots matching rules. For example, you can easily find all empty files.

So you could do something like this :-

my @dirs = Find::File::Rule->directory()->in($drive);
my @files = File::Find::Rule->file()->in($drive);
my @empty = File::Find::Rule->file()->empty()->in($drive);
[download]