{
  $fmt = $ARGV[0];
  $val = $ARGV[1];
  open (DATOUT, "> /tmp/wjs_pack_test.out") or die;
  print DATOUT pack $fmt,$val;
}