use Term::Form::ReadLine;

my $rl = Term::Form::ReadLine->new();

my $history = [ 'a', 'b', 'c' ];
my $line = $rl->readline( 'Prompt: ', { history => $history } );
exit if ! length $line;
push @$history, $line;
$line = $rl->readline( 'Prompt: ', { history => $history } );