# Possibly, need to set binmode...
$zip->newStream(name=>"SomeFileName.txt" );
# in a loop .. write data using:
$zip->write $data, $length, $offset;
# Then finally
$zip->close; # Or do newStream for some other file name..