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