$mw->configure(-menu => my $menubar = $mw->Menu);

# Build a menu bar for special options.
map {$menubar->cascade( -label => '~' . $_->[0], menuitems => $_->[1])}
  ['First',    menuitems];


# List of menu entries....
sub menuitems {
		[
			['command', 'Do This',  -command => sub { print "foo" } ],  
			'',
			['command', 'Do That,   -command => sub { print "bar" } ],    
			'',
			['command', 'Do Other', -command => sub { print "wtf" } ],
		];
};


# Explain about the menu thingie.
$balloon->attach( $mw->WHAT_SHOULD_I_PUT_HERE,
  -balloonmsg => 'Do something',
  -statusmsg => q{Tell much more here..},
);