Select Code to Download

sub go
 {
...
 find ({wanted => $eachfile, preprocess => $filter},   $directory);
 print '=' x 50, "\n";
 }