Thank you for the greeting. This looks, so-far as I have read your script, what I was shooting for.
I went to read the "Term::Readline" documentation, and I would not have guessed it was able to do as you have presented, reading that document. That is what I had mentioned in an earlier statment. If I were to just search for this, I could take days of looking at hints that it could do what I wanted, based on the name, but come away, after reading it, not knowing it was the proper package/function.