my $menu = $config{MainWindow}->Menu
    (-menuitems =>    [
        [Cascade => "~Datei", -tearoff => 0, -menuitems =>
            [
               
 [Button => "Anmelden als Froschpopo",
               
     -command => sub { } ],
               
 [Cascade => "Mein Status",
               
     -tearoff => 0,
               
     -menuitems =>
               
     [
               
         [Button => "~Online",
               
             -command => sub { } ],
               
         [Button => "~Beschäftigt",
               
             -command => sub { } ],
               
         [Button => "~Bin gleich zurück",
               
             -command => sub { } ],
               
         [Button => "~Abwesend",
               
             -command => sub { } ],
               
         [Button => "~Mittagspause",
               
             -command => sub { } ],
               
         [Button => "~Als Offline anzeigen",
               
             -command => sub { exit } ]
               
     ]
               
 ],               
               
 [Button => "~Wechseln zu",
               
     -command => sub { } ],
               
 "-",               
               
 [Button => "~Beenden",
               
     -command => sub { exit } ]               
            ]
        ],
        [Cascade => "~Kontakte",
            -tearoff => 0,
            -menuitems =>
            [
               
 [Button => "Kontakt hinzufügen",
               
     -command => sub { AddUser() }],
               
 [Button => "Kontakt suchen",
               
     -command => sub { SearchUser() }],
               
 [Button => "Gruppen verwalten",
               
     -command => sub { EditGroups() }]
            ]
        ],
        [Cascade => "~Extras",
            -tearoff => 0,
            -menuitems =>
            [
               
 [Button => "Profil bearbeiten",
               
     -command => sub {
               
         GotoUrl("http://flirtwelt.net/index.html?ID=options") }],
               
 [Button => "Fotoalbum bearbeiten",
               
     -command => sub {
               
         GotoUrl("http://flirtwelt.net/index.html?ID=files") }],
               
 "-",
               
 [Button => "Optionen",
               
     -command => sub { &Options }]
            ]
        ],
        [Cascade => "~?",
            -tearoff => 0,
            -menuitems =>
            [
               
 [Button => "Online-Hilfe",
               
     -command => sub { GotoUrl("http://flirtwelt.net/index.html?ID=files") }],
               
 [Button => "Info",
               
     -command => sub { SearchUser() }],
               
 [Button => "Hilfethemen",
               
     -command => sub { EditGroups() }]
            ]
        ]
    ]
);