#!/usr/bin/perl

use strict;
use Curses::UI;
my $cui = new Curses::UI( -color_support => 1);
my $win = $cui->add('window_id', 'Window');
$cui->set_binding( sub { exit }, "\cQ");

my $listbox = $win->add(
  'mylistbox', 'Listbox',
  -values => [1,2,3],
  -labels => {
    1 => 'One',
    2 => 'Two',
    3 => 'Three',
  },
  -radio => 1,
);

$listbox->focus();
my $selected = $listbox->get();
$cui->mainloop;