title: Find:File in Perl - Search through symlink directory
body: <p>Does anyone know how to make File:Find can search through symlink directory?</p>
  
  <p>I have a real directory at </p>
  
  <pre><code>/home/alex/mydir1 
  </code></pre>
  
  <p>and a symlink directory inside</p>
  
  <pre><code>/home/alex/mydir1/test -&gt; ../mydir2
  </code></pre>
  
  <p>Here is my code:</p>
  
  <pre><code>#!/depot/perl-5.8.3/bin/perl
  use strict;
  use File::Find qw(find);
  
  my $path = "/home/alex/mydir1";
  
  find(\&amp;Search,follow =&gt; 1, $path);
  
  sub Search{
      my $path = $File::Find::name;
      print $path."\n";
  }
  </code></pre>
  
  <p>And the result is:</p>
  
  <pre><code>/home/alex/mydir1
  /home/alex/mydir1/test
  </code></pre>
  
  <p>Why it's not search through /home/alex/mydir2 and print out every files inside ? Can anyone show me how to do that ?</p>
  
  <p>Thank you and best regards.</p>
  
  <p>Alex</p>