Help for this page
map { $menubar->cascade( -label => '~' . $_->[0], -menuitems => $_->[1 +]) } [ 'Choices', char_string ]; ... ['command', 'bar', -command => sub { $char_string = "that"} ], ] }
$b->attach( $menu, -state => 'balloon', -msg => [ ... 'Do that...', ], );