title: Getting Perl Tk FileSelect to select directories
body: <p>How do I get Perl Tk FileSelect to only select directories??</p>
  
  <p>I'm trying this:</p>
  
  <pre><code>sub desDirectory{
   $dd = $mw-&gt;FileSelect();
   $dirPath = $dd-&gt;Show;
   $dd-&gt;configure(-verify=&gt;['-d']);
  }
  </code></pre>
  
  <p>without success.</p>