IO::Compress::Zip can read from a \$file_contents variable for its input (see the zip function). Is that what you are looking for?