$ sudo apt-get install libncurses5-dev libreadline6-dev
$ cpanm Term::ReadLine::Gnu

##</code><code>##

use feature qw(say);
use strict;
use warnings;

use Term::ReadLine;

my $term   = Term::ReadLine->new('Test', \*STDIN, \*STDOUT);
say "I am using the following ReadLine package: " . $term->ReadLine;
$term->ornaments( 0 );
$term->addhistory("sample text added to history");
while (1) {
    my $line = $term->readline( 'Enter input: ' );
    say "You entered: '$line'";
}