use Tk; $top = MainWindow->new(); $menu_bar = $top->Frame()->pack(side => 'top'); $search_mb = $menu_bar->Menubutton(text => 'Search', relief => 'raised', borderwidth => 2 )->pack(side => 'left', padx => 2 ); $search_mb->command(label => 'Find', accelerator => 'Meta+F', underline => 0, command => sub {print "find\n"} ); MainLoop();