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;

##</code><code>##

len is 10, bname is 'eps_cm_0_pblk1'
1; '0x00000019'
Argument "0x00000019" isn't numeric in pack at pU.pl line 267.
2; '0x0000001b'
Argument "0x0000001b" isn't numeric in pack at pU.pl line 267.
 : etc etc
10: