open INF, $FileName or die "\nCan't open $FileName for reading: $!\n";
binmode INF;

while ( ($readBytes = read (INF, $buffer, BLOCK_SIZE )) ){
    
    print 'Read bytes:'.$readBytes."\n";
    
    $BlockCounter++;
    
    @data = unpack('C C C C C C C C C C3 C3 C5 C5 C3 C3 C3 C C3 C C12 C20', $buffer);
    $tmp = @data;
    print "Size of DataArray = $tmp\n";
    
  }