in reply to How do you make File::Find a bit less ugly?

I don't use wanted. Instead, I use an inline sub for callback. 
find sub {
    if(wantThis) {
        print "Here's a file I want: $File::Find::name\n";
    }
}, @directoryList;

[download]

In Section Seekers of Perl Wisdom