#!/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 } );

------------------------------------------------------
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.
Your choice:
aaa  cjm  esy  hck  jlw  lvi  oeu  qog  sxs  vhe  xqp
aab  cjn  esz  hcl  jlx  lvj  oev  qoh  sxt  vhf  xqq
aac  cjo  eta  hcm  jly  lvk  oew  qoi  sxu  vhg  xqr
aad  cjp  etb  hcn  jlz  lvl  oex  qoj  sxv  vhh  xqs
aae  cjq  etc  hco  jma  lvm  oey  qok  sxw  vhi  xqt
aaf  cjr  etd  hcp  jmb  lvn  oez  qol  sxx  vhj  xqu
aag  cjs  ete  hcq  jmc  lvo  ofa  qom  sxy  vhk  xqv
aah  cjt  etf  hcr  jmd  lvp  ofb  qon  sxz  vhl  xqw
aai  cju  etg  hcs  jme  lvq  ofc  qoo  sya  vhm  xqx
aaj  cjv  eth  hct  jmf  lvr  ofd  qop  syb  vhn  xqy
aak  cjw  eti  hcu  jmg  lvs  ofe  qoq  syc  vho  xqz
aal  cjx  etj  hcv  jmh  lvt  off  qor  syd  vhp  xra
aam  cjy  etk  hcw  jmi  lvu  ofg  qos  sye  vhq  xrb
aan  cjz  etl  hcx  jmj  lvv  ofh  qot  syf  vhr  xrc
aao  cka  etm  hcy  jmk  lvw  ofi  qou  syg  vhs  xrd
--- 001/107 ---
------------------------------------------------------