my @vals  = unpack("N*", $binrec ) ;
print "@vals" ;