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