#!/usr/bin/env perl
use strict;
use warnings;
use Term::Choose;

my $info = 'Kommunikation ist ein zentraler Bestandteil des menschlichen Zusammenlebens. Sie ermöglicht es, Informationen auszutauschen, Gedanken mitzuteilen und gemeinsame Entscheidungen zu treffen. Bereits im frühen Kindesalter lernen Menschen, sich durch Sprache, Gestik und Mimik auszudrücken. Im weiteren Verlauf des Lebens wird Kommunikation immer komplexer und differenzierter.';

my $menu = [ 'aaa' .. 'zzz' ];

my %opt = (
    info => $info,  # Text oberhalb des Menüs
    layout => 0,
    keep => 15,     # behalte mindestens 15 Menü-Zeilen
);

my $new = Term::Choose->new();
my @choices = $new->choose( $menu, { %opt } );