Hi try this,

use strict;
use Archive::Zip; 

my $destinationDirectory = 'C:\test'; #####Specify your destination di
+rectry to unzip the file
my $zip = Archive::Zip->new('C:\00000007.zip'); #####This is the sourc
+e zip file path
foreach my $member ($zip-> members){
    my $extractName = $member->fileName;        
    $member->extractToFileNamed("$destinationDirectory\\$extractName")
+;
}
[download]

Punitha