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