my $unzip = Archive::Zip->new($zipfile);

    if ( ( defined($unzip) ) && ( $unzip eq "AZ_OK" ) ) {
        process zip
        ...
    }  else {
        dont process..
        $logger->info("error\n");
    }

##</code><code>##

IO error: reading end of central directory :
 at /opt/perl-5.26.0/lib/site_perl/5.26.0/Archive/Zip/Archive.pm line 656 thread 87.
        Archive::Zip::Archive::_readEndOfCentralDirectory(Archive::Zip::Archive=HASH(0x18632b38), IO::File=GLOB(0x1b575298)) called at /opt/perl-5.26.0/lib/site_perl/5.26.0/Archive/Zip/Archive.pm line 612 thread 87
        Archive::Zip::Archive::readFromFileHandle(Archive::Zip::Archive=HASH(0x18632b38), IO::File=GLOB(0x1b575298), "bad.testfile.zip") called at /opt/perl-5.26.0/lib/site_perl/5.26.0/Archive/Zip/Archive.pm line 574 thread 87