add_asa_ctl_char {
    file = shift;
    open file;    # I said it was pseudo-code!
    open temp_file;
    while <read file} {
        write temp_file asa_ctl+input_line
    }
    close(file, temp_file)
    return(temp_file)
}