my $cdrdata  = unpack "N*", substr($data, BLOCKHDR+BLOCKDATA, CDRLENGTH);