#!/usr/bin/perl

use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Data::Dumper;

my $zipFile = "myzip.zip";

my $archiveDir = '/fileDirectory' ;

my $zip     = Archive::Zip->new();
my $status  = $zip->read("$archiveDir/$zipFile");
my @members = $zip->memberNames();
 die "Read of $zip failed\n" if $status != AZ_OK;

foreach my $member (@members) {

  $zip->extractMember($member, "/zips/$member");
 
}