in reply to Getting user input from STDIN

Term::ReadKey?
Unless I state otherwise, all my code runs with strict and warnings

In Section Seekers of Perl Wisdom