use Archive::Zip;

my $zipname = 'file.zip';
my $destinationDirectory = '/temp/';
my $zip = Archive::Zip->new($zipname);
foreach my $member ($zip->members)
{
  next if $member->isDirectory;
  (my $extractName = $member->fileName) =~ s{.*/}{};
  $member->extractToFileNamed("$destinationDirectory/$extractName");
}