title: perl unzip with sub directories
body: <p>im using perl module to extract a .zip file and it consist of many sub directories and im using the below code </p>
  
  <pre><code>my $extract_path = $des_path . "\\files";
  mkdir $extract_path;
  my $filename = $des_path . "\\" . basename($zipfile_path);
  my $zip = Archive::Zip-&gt;new($filename);
  
  foreach my $member ($zip-&gt;members)
  {
      next if $member-&gt;isDirectory;
      (my $extractName = $member-&gt;fileName) =~ s{.*/}{};
      $member-&gt;extractToFileNamed("$extract_path/$extractName");
  }
  </code></pre>
  
  <p>but my problem is it is place the entire file in a single folder and avoiding the sub folders .That is entire files are placed in a single folder instead of making subfolders </p>
  
  <p>what went wrong any one help me </p>
  
  <p>thanks </p>