Select Code to Download

$filename = "somefile.zip";
$dest_dir = "c:/somedir";
...
foreach (@members){
$zip->extractMemberWithoutPaths( $_, "$dest_dir\\$_");
}

my $ae = Archive::Extract->new(archive => $filename);                 
+       
my $ok = $ae->extract(to => $dest_dir) or die $ae->error;