open(BIN, '>', $fn)
    or die "Couldn't open file for writing: $!n";

  $len = length $gBuf{$bName}[0];
  print "len is $len, bname is '$bName' \n\n";

  foreach $i (1 ... $len) { 

    # use bigint;

    printf "\n$i; '$gBuf{$bName}[$i]'\n\n";
    binmode BIN;
    printf BIN pack('C', $gBuf{$bName}[$i]); 
  }
  close BIN;