Looks like the way to do this is to include -tearoff => 0 in the menu definition. See also: http://www.perltk.org/articles/menus/perltk_menus.html. I have not tested this.