title: Perl code not discarding 'Sub' directory
body: <pre><code>use File::Find::Rule;
  
  print "Enter threshold size for files to report ";
  chomp( $size_req= &lt;&gt;);
  $filename= "C:\\Unicorn";
  opendir ($filename, '.') or die "Couldn't open directory, $!";
  my $subdir = File::Find::Rule-&gt;directory
                  -&gt;name('C:\\Unicorn\\sub')
                  -&gt;prune
                  -&gt;discard;
  my $rule =  File::Find::Rule-&gt;new;
  $rule-&gt;file;
  $rule-&gt;size( "&gt;3*1024" );
  print "\n";
  my @subdirs= $rule-&gt;in ($subdir);
  print @subdirs;
  </code></pre>
  
  <p>It is still displaying the sub directory in Unicorn folder.  I cannot figure out why?</p>