Descomprimir ZIP FILE con directorios.

[cacho_k]

Hola todos, siempre he usado un script que tengo para descomprimir, pero nunca habia utilizado directorios adentro del zip.

Deseo hacer esto:

Folder
|
+- subfolder
|
+- Musica

El problema es que me descomprime todo en el mismo folder no importando cuantos subfolders hay adentro del .ZIP

Codigo

Código:

#!/usr/bin/perl -wT
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Archive::Zip;

my $zipname = 'temp.zip';
my $destinationDirectory = "../musica/" . $folder;
my $zip = Archive::Zip->new($zipname);
foreach my $member ($zip->members)
{
    next if $member->isDirectory;
    (my $extractName = $member->fileName) =~ s{.*/}{};
    $member->extractToFileNamed(
      "$destinationDirectory/$extractName");
}