use strict;
use Term::ReadLine;

my $term = Term::ReadLine->new('a');
print "you entered: " .  $term->readline("Enter something: ");