my $cui = Curses::UI->new(-clear_on_exit => 1,
-color_support => 1);

my $win = $cui->add('win','Window',
-title => 'TEST',
-border => 1);

:

$pwdwin = $win->add('pwd','PasswordEntry',
-title => 'Passwort',
-border => 1,
-x => 0, -y => 15,
-width => $max_width,
-text => "");

:
:

$pwdwin->onBlur(
sub {
$win->delete('pwd');
}
)

:
$menuwin = $win->add('menu','Listbox',
-title => 'Menu',
-border => 1,
-x => 0, -y => 0,
-width => 20, -height => 5,
-values => ['info','trans','exit'],
-labels => {'info' => 'Information',
'trans' => 'Passwort-Transfer',
'exit' => 'Exit'}
);

:

$cui->mainloop();