[Perl] Curses::UI og $listbox->get()

[Lycantrophe]

Skriver et raskt interface der brukeren skal hente ut en verdi fra en liste. http://search.cpan.org/~mdxi/Curses-UI-0.9609/lib/Curses/UI/Listbox.pm sier:

 

sub pickDish {
   my $listbox = $win1->add(
       'myListBox', 'Listbox',
       -values => [array],
       -labels => {hash},
   );
   $listbox->focus();
   return $listbox->get()

 

Problemet er at jeg tilsynelatende ikke får returnert noen verdi og ikke blir kvitt listboxen igjen. Noen som har prøvd noe lignende, ev. kjenner til eksempler som funker?