view release on metacpan or  search on metacpan

scripts/ubiq  view on Meta::CPAN

      [
       { -label => 'Choose Database',  -value => sub{select_screen('select_db')}},
       { -label => 'Choose Template',  -value => sub{select_screen('select_template')}},
       { -label => 'Query',  -value => sub{select_screen('query')}},
      ];
    my $menu = [
                { -label => 'File',               -submenu => $file_menu         },
                { -label => 'Select',        -submenu => $select_menu         },
               ];

    $cui->add('menu', 'Menubar', -menu => $menu);

    my $w0 = $cui->add(
                       'w0', 'Window', 
                       -border        => 1, 
                       -y             => -1, 
                       -height        => 3,
                      );

    $w0->add('explain', 'Label', 
             -text => "CTRL+P: previous demo  CTRL+N: next demo  "