Select Code to Download

use File::Find;
[...]
...

print "You've found " . join("\n\t", @fileList) . "\n";

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