my $packed = pack "H*", sprintf "%07dC",  $num_records;