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

use 5.010.000;
use Term::ReadLine;

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

say "Using " . $term->ReadLine;

my $predefined = "Tomas";
my $answer = $term->readline( "Check that name: ", $predefined );
say "Your answer was: $answer";

__END__

Using Term::ReadLine::Gnu
Check that name: Tomas
# mit Pfeilen nach links wandern und 'h' einfuegen; <Enter>
Your answer was: Thomas