title: How do I use $File::Find::prune?
body: <p>I have a need to edit cue files in the first directory and not go recursively in the subdirectories.</p>
  
  <pre><code>find(\&amp;read_cue, $dir_source);
  sub read_cue {
      /\.cue$/ or return;
  
      my $fd = $File::Find::dir;
      my $fn = $File::Find::name; 
      tie my @lines, 'Tie::File', $fn
        or die "could not tie file: $!";
  
      foreach (@lines) {
          s/some substitution//;
      }
  
      untie @lines;
  }
  </code></pre>
  
  <p>I've tried variations of</p>
  
  <pre><code>$File::Find::prune = 1;
  return;  
  </code></pre>
  
  <p>but with no success. Where should I place and define <code>$File::Find::prune</code>?</p>
  
  <p>Thanks  </p>