while ($file  = File::Find::find(@directoryList)) {
    if (@wantThis) {
        print "Here's a file I want: $file\n";
    }
}