our $mw = MainWindow->new(-title => 'Test');
$mw->geometry("800x600+0+0");
my %Config;
$Config{Menu} = $mw->Menu(-type => 'menubar');

# 2. Dem Fensterwidget sagen, dass unsere Menubar sein Menu ist:
$mw->configure(-menu => $Config{Menu});
$Config{Menu}->cascade(-label => 'Datei',
                           -underline => 0
                          );
$Config{Menu}->cascade(-label => 'Bearbeiten',
                           -underline => 0
                          );
$Config{Menu}->cascade(-label => 'Info',
                           -underline => 0
                          );

# Info-Menu:
my $menu_bearb = $Config{Menu}->Menu(-tearoff   => 0, -menuitems => [
                	['command'    => 'Homepage', -command => [ \&bearbeiten, 'sortieren' ], -accelerator => 'F10', -underline   => 0],
                	['command'    => 'About', -command => [ \&bearbeiten, 'sortieren' ], -accelerator => 'F12', -underline   => 0]
                ]
							);
$Config{Menu}->entryconfigure('Info', -menu => $menu_bearb);

MainLoop();