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

use Curses;
use Curses::Widgets;
use Curses::Widgets::TextField;

my $widget;

my $mwh = new Curses;
noecho();
curs_set(0);

do
{
my $widget = Curses::Widgets::TextField->new({
  Y           => 4,
  X           => 14,
  COLUMNS     => 20,
  MAXLENGTH   => 30,
  FOREGROUND  => 'green',
  BACKGROUND  => 'blue',
  BORDERCOL   => 'black',
  BORDER      => 1,
  CAPTION     => 'Ihre Eingabe',
  CAPTIONCOL  => 'yellow',
});

$widget->draw($mwh, 0);
$widget->execute($mwh);

} while ($widget->getField('VALUE') ne "exit");

endwin();
exit 0;