#!/usr/bin/perl
use strict;
use warnings;
use Term::ReadLine;

my $str = "foobar";
my $term = Term::ReadLine->new ('ReadLine Test');

$term->addhistory ($str);
do {{
    $str = $term->readline ('Bitte irgendwas eingeben: ', $str);
    last unless $str;
    print "Sie haben $str eingegeben.\n";
    $term->addhistory ($str);   # Eingabe zur ReadLine-History hinzufuegen
}} while $str;