#! /usr/bin/env perl
use strict;
use warnings;
use 5.030;

use Term::ReadLine;

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

my $prompt = "Deine Eingabe: ";

my $input = $term->readline($prompt, "Teest");

say "Du hast '$input' eingegeben.";

__END__;