binmode AtrFile;
      
      # Assign the variables, Base Atr size is 12

      $base_readsize = 8;

      $AtrTmp = "I I";

      $bytes_read = read AtrFile, $dat_block, $base_readsize;

      ($Cksum, $NxIdx) = unpack( $AtrTmp, $dat_block );
      
      # Assign the variables, Base Label size is 20

      $LblTmp = "i i b8 b16 b8 i C";
      $lbl_readsize = 20;

      while ($bytes_read = read AtrFile, $lbl_block, $lbl_readsize) {

        $lbl_readsize = 20;
       
        ( $NumLbl, $LblKnd, $ZmLvl, $FntSz, $res, $Lngth, $Ornt ) = unpack( $LblTmp, $lbl_block );

        $num_readsize = $Lngth;
        
        $NumTmp = "a" . $Lngth;

        read AtrFile, $num_block, $num_readsize;

        ( $LblVal ) = unpack( $NumTmp, $num_block );

        $x++;

      }
      
      close( AtrFile );
      
      sleep 1;

print( STDOUT "MADE IT HERE AND $iIcao has $x records\n");
      
      # Open Attribute file for reading

      open( AtrFile, "<$AtrFile" );
 
      binmode AtrFile;
      
      # Assign the variables, Base Atr size is 12

      $base_readsize = 8;

      $AtrTmp = "I I";

      $bytes_read = read AtrFile, $dat_block, $base_readsize;

      ($Cksum, $NxIdx) = unpack( $AtrTmp, $dat_block );

print( Type09File "$iIcao Set_Header: $Cksum, $NxIdx\n");

      for ( $v = 0 ; $v < $x ; $v++ ) {
      
        # Assign the variables, Base Label size is 16
        
        $lbl_readsize = 20;

        $LblTmp = "i i b8 b16 b8 i C";
       
        $bytes_read = read AtrFile, $lbl_block, $lbl_readsize;
       
        ( $NumLbl, $LblKnd, $ZmLvl, $FntSz, $res, $Lngth, $Ornt ) = unpack( $LblTmp, $lbl_block );
         
print( Type09File "Label_Header: $NumLbl, $LblKnd, $ZmLvl, $FntSz, $res, $Lngth, $Ornt, ");

        $num_readsize = $Lngth;
        
        $NumTmp = "a" . $Lngth;
        
        $bytes_read = read AtrFile, $num_block, $num_readsize;
        
        ( $LblVal ) = unpack( $NumTmp, $num_block );
        
print ( Type09File "$LblVal\n");

      }

      # Close data file(s)

      close( GeoFile );
      close( AtrFile );

    }