#!/usr/bin/perl

use warnings;
use strict;

use Term::ReadLine;

my $wort = "tomas";
my $term = Term::ReadLine->new('example');
$term->ornaments(0);
$wort = $term->readline("", $wort);
print "$wort\n";