use strict;
use Archive::Zip; 

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