in reply to do-while loop never exits

Also see Term::Prompt.

In Section Seekers of Perl Wisdom