You can use

$zip->extractTree( '',$destinationDirectory);
[download]

to extract all files from directories inside Zip file recursively. You may refer Archive::Zip for more details.

Note: Please format the posting as erroneousBollock said and go through The Perl Monks Guide to the Monastery and How (Not) To Ask A Question also.

Cheers !

--VC