Select Code to Download

sub RecSize {
  # Returns the length of the data required by a string for unpack()
...
  };
  return \%Result;
};

$strMacBinaryHeader = "CZ64A4A4AAvvvaaNNVVvaA4A8VVaaN";
@nameMacBinaryHeader = (
...
&dump( $Header );