Select Code to Download

# loop over all the records in the input file
    while ( $record = <INPUT_FILE> ) {
...
        }
        
    }# end-while

    
sub H_header {  
    # unpack the record into local fields     
...
        # write the claim record
    }
}