#!/usr/bin/perl

use warnings;
use strict;

use Term::ReadLine;

my $term = Term::ReadLine->new( "Beispiel" );

print "\n";

# Unterstreichen des Prompts ausschalten:
$term->ornaments(0);

for my $i (1 .. 10) {
    $term->addhistory("Teest $i");
}

my $prompt = "Deine Eingabe: ";

my $input = $term->readline($prompt, "Please press up");

print "\nDu hast '$input' eingegeben.\n\n";