Select Code to Download

Select or download this

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);

Select or download this

code snippet...
     read(IN, my $buff, 1 * 2**10);
...
     (substr($buff,50,4) eq "data")|| die "data segment not found";
     my $dsize = unpack ("V4",substr($buff,54,4));   
     myprint (" DATA Segment size = $dsize");