Select Code to Download

sub sgt_header {
  # You need to know how many rows you will be writing
...
  print pack("V",$items); # Number of rows
  print pack('Vx','0x9bd5'); # We seem to have an extra null byte in h
+ere since v11
}

  print pack('a30x',$reference);