Select Code to Download

$menuItems = [
   'foo',
...
   ],
   'frank',
];

package Tk::SepOptionmenu;
use base ('Tk::Optionmenu', 'Tk::Derived');
...
=cut