my $HeaderRecordId = substr($buf,0,1);
my $FileFormatVersion = substr($buf,1,1);
my $TimeStamp = substr($buf,2,8); #some kind of unpack needed here!
my $NumBSC = substr($buf,10,1);