$cache={
  'package'=>{
     'object'=>[\$result,\&generator,@data],

  },
};

##</code><code>##

218   for my $block(@blocks) {
219 
220     $block=freeze($block);
221     $body.=$block;
222 
223     push @header,$header[-1]+length $block;
224 
225   }

##</code><code>##

229   unshift @header,int(@header);
230 
231   my $header=$signature.(
232     pack 'L'x@header,@header
233 
234   );
235 
236   print {$FH} $header.$body;