my $extract_file = $start_path . $env . "\\mrf" . $mrf_num . "\\$item";     
            
      my $zip = Archive::Zip->new();  
      
      if($zip->read($extract_file) != AZ_OK) {
         die "Unable to decompress zip file '$extract_file'";
      }

##</code><code>##

\UPatchCAAGAIAE_B.tar.Z
format error: can't find EOCD signature
        Archive::Zip::Archive::_findEndOfCentralDirectory('Archive::Zip::Archive=HASH(0x1b6bd68)', 'IO::File=GLOB(0x1b6be64)')
        Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archive=HASH(0x1b6bd68)', 'IO::File=GLOB(0x1b6be64)', 'R:\Rele
        Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0x1b6bd68)', 'R:\Relfsdfdment\pdsfsdhes\OdsfW\mrf15009\UPatc