#!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
binmode STDOUT, ':encoding(utf-8)';

use Term::Choose qw(choose);

my $choosen = choose( [ 'aaa' .. 'lzz' ], { prompt => 'Auswahl' } );
say "<$choosen>";


# in list Kontext multiple choice mit Leertaste
my @choosen = choose( [ 'aa' .. 'zz', "\x{263a}" ], { prompt => 'Auswahl' } );
say "<@choosen>\n";