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

use lib '.';
use Clui_sid qw(aw);

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


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

sleep 2;

say help();