$TEMP = "\@0 A1 \@1 A12";
  $string = "AAAA";
  $res = pack($TEMP, "V", $string);
  print "$res\n";