my $datei = $menubar->cascade(-label => '~Datei',
                              -tearoff => 0);
$datei->command(
    -label => 'Beenden',
    -background=> 'white',
    -command => # untermenü aufrufen
);