sub auswahl { my $val2 = $listbox->getSelected;
                 $textOUT->insert (0,$val2);
            }