open FOO , '<:zip','zipfile.zip' || die "$!\n";

   while(<FOO>)
   {
     # ...
   }