$filename = "somefile.zip";
$dest_dir = "c:/somedir";
my $zip = Archive::Zip->new();
local $Archive::Zip::UNICODE = 1;
unless ( $zip->read($filename) == AZ_OK ) {
die "Error Reading Zip File !";
}
my @members = $zip->members();
foreach (@members){
$zip->extractMemberWithoutPaths( $_, "$dest_dir\\$_");
}