in reply to How to add input history

The module Term::Readkey may be what you are looking for.

In Section Seekers of Perl Wisdom