my $datei = $menubar->cascade(-label => '~Datei',
                              -tearoff => 0);

$datei->command(-label => 'Neu', -command => \&neu);
$datei->command(-label => 'Öffnen...', -command => \&open);
$datei->command(-label => 'Speichern', -command => \&speichern);
$datei->command(-label => 'Speichern unter...', -command => \&speichernunter);
$datei->separator();
$datei->command(-label => 'Beenden', -command => [$mw=>'destroy']);