#!/usr/bin/env perl
use warnings;
use strict;
use 5.008003;
use Term::Choose qw( choose );
use FindBin qw( $RealBin );
use lib $RealBin;
use Z_Data_Test_Choose;
my $type = shift;
my $a_ref = Z_Data_Test_Choose::return_test_data( $type );
for my $ref ( @$a_ref ) {
my $opt = $ref->{options};
my $list = $ref->{list};
my @choice = choose(
$list,
$opt
);
print "<@choice>\n";
}