#!/usr/bin/env perl
use strict;
use warnings;
use 5.10.0;
use Term::Choose::Screen qw( get_term_size );
use Term::Choose;

my ( $width, $hight ) = get_term_size();
my $n = $width * $hight / 10;
my $max_height = $hight - 8;
my $list = [ map { sprintf "Hello_World__%0.3d", $_ } 1 .. $n ];
my $new = Term::Choose->new();

my $choice1 = $new->choose( $list, { prompt => "\n\n\nAAAAA:", max_height => $max_height, clear_screen => 1 } );
my $choice2 = $new->choose( $list, { prompt => "\n\n\nBBBBB:", max_height => $max_height, clear_screen => 0 } );