slackbuilds/perl/perl-Term-UI

Term::UI is a transparent way of eliminating the overhead of having to
format a question and then validate the reply, informing the user if
the answer was not proper and re-issuing the question.  Simply give it
the question you want to ask, optionally with choices the user can
pick from and a default and Term::UI will do what you mean.